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ABSTRACT 


The goal of this thesis is to automate recommendations to the Officer of the 
Deck when decisions are made concerning situations that involve risk of collision. A 
rule-based expert system is designed and implemented as a solution to this task. The 
rules are based on regulations in the U.S. Coast Guard manual, Navigation Rules 
International-Inland. The expert system receives facts that describe the current 
situation, then searches the rule base for matching rules. The searching method is a 
hybrid form of forward chaining that searches cyclically through the rule base until all 
matches, intermediate and final, are located. The conclusions of the matching rules are 
displayed as a recommendation to the system user. The resulting system provides a 
valuable input to the Officer of the Deck, serving to increase the speed and reliability 
of the final decision by removing the necessity of manually looking up regulations or 


relying on memorization. 


THESIS DISCLAIMER 


The reader is cautioned that computer programs developed in this research may 
not have been exercised for all cases of interest. While every effort has been made, 
within the time available, to ensure that the programs are free of computational and 
logic errors, they cannot be considered validated. Any application of these programs 


without additional verification is at the risk of the user. 
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I. INTRODUCTION 


The International Regulations for Preventing Collisions at Sea, 1972 
(commonly called the 72 COLREGS) must be followed by all public and private 
vessels of the United States while navigating upon the high seas. The Navigation 
Rules For Harbors, Rivers, and Inland Waters and the Pilot Rules For Inland 
Waters govern vessels within specified inland waters of the United States. All of 
these rules are contained in [Ref. 1] henceforth referred to as CG-169. Much like the 
traffic laws that regulate the manner in which we operate vehicles on the streets and 
highways, CG-169 regulates the navigation of ships in international and inland 


waters: 


These navigation requirements have the gta ts) purpose of preventing collisions 
between vessels. It is imperative that. all persons operating Vessels be 
knowledgeable of them. Strict compliance, is necessary to insure the 
safety of vessels and passengers. [Ref. 1: p. 11] 


As the person responsible for the safe navigation of Navy ships at sea, the 
Officer of the Deck must make sound maneuvering decisions when operating 
within sight of other vessels or under restricted visibility conditions. Numerous 
data are collected which describes the current situation. Then the situation 1s 
compared to the various rules in CG-169 which: may apply. The applicable 
rules must be used together to arrive at the correct maneuvering decision. The 
entire process from data collection to decision making can often be time consuming 
and difficult to follow. Quite often, the Officer of the Deck uses CG-169 from 
memory, which introduces an increased risk of mistake. 

This study will examine the use of an automated system to provide the Officer 
of the Deck with a fast, reliable recommendation to use in the decision-making 
process described above. We chose to build a particular kind of automated system 
referred to as a rulebased expert system. An expert system “mimics human 
reasoning by generating prospective solutions to a stated problem, then identifying the 
most likely candidate.” [Ref. 2] Most rule-based expert systems consist of three main 
elements: a rule base, an inference engine, and a user interface. The rule base isa 
collection of rules relating to a particular subject. The rules are usually in the form 


of IF... THEN statements as showim mh iounesiete 
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Le 

TIME = DAY. 

TARGET ANGLE IS PORT FWO. 
RELATIVE BRG IS STBD FWO. 


THEN 

YOU ARE GIVE-WAY VESSEL. MANEUVER TO AVOID CONTACT. 
TURN STBO IF POSSIBLE. 

SOUND ONE SHORT BLAST TO SIGNAL A STBO TURN. 





Figure 1.1 Sample IF...THEN Rule. 


The inference engine compares current facts to the rule base and provides 
corresponding conclusions. The user interface allows communication between the 
user and the system. 

Although mankind has long pondered: the human problem solving method, 
Serious attempts to build machines that model human reasoning were not made until 
the 1960's. Alan Newell and Herbert Simon were two of the earliest researchers 
in the area of expert computer programs. Their program, General Problem Solver 
(GPS). was one of the first to use rules as a basis for solving problems. [Ref. 3] Also tn 
the 1960's, Stanford University produced a mass-spectrography expert system that was 
used to isolate organic compounds. Probably the most famous of the early expert 
systems, MYCIN, was also developed at Stanford by the Heuristic Programming 
Project (FIPP). MYCIN could provide a systemic diagnosis of bacterial infections 
and reconumend an_ effective therapeutic regimen. The knowledge base and simple 
rule-based processing method that formed the framework of MYCIN has become the 
working model for most modern expert systems. [Ref. 4] The wide range of 
applications for expert systems coupled with their increasing popularity suggests that 
expert systems may very soon become a part of our everyday existence. 

Every possible situation involving risk of collision between vessels at sea 
can be described by a small set of facts. However, numerous combinations of facts 
are possible, resulting in numerous, but a finite number of possible situations. The 


regulations in CG-169 govern every situation, but the process of matching the 


facts to the proper regulations is not always simple. “The human mind can weigh 
only seven possibilities at any one time, it’s said, but a computer program can 
consider several hundred.” [Ref. 5] 

The decision to use an expert system as a solution to this task is based on criteria 
as stated by D.A. Waterman. He says that the existence of genuine experts is one of 
the criteria necessary for the effective use of an expert system. He further states that 
these experts must agree on their solutions. The expertise used for the development of 
this system is provided by a panel of navigation experts who are convened periodically 
by the United Nations to update the existing regulations. These regulations are 
published in CG-169. However, it could be argued that the real experts are the 
commanding officers of the vessels. Although they are not allowed to make their own 
interpretations of the regulations, they are the individuals responsible for the safety of 
their vessels, and who use CG-169 to prevent collisions. Waterman also states as an 
additional criteria that a task should require only cognitive skills. The task that this 
thesis tries to solve requires purely cognitive skills with no physical manipulation 
required. [Ref. 6] | | 

Specially, a rule-based expert system was chosen as a solution due to the nature 
of the task involved. The description of a meeting situation between two vessels and 
the corresponding conclusion, in accordance with CG-169, fit easily into the 
IF... THEN format used in most rule-based systems. Also, this task 1s well-suited to the 
concept of forward chaining that is used in rule-based systems. Forward chaining is the 
process by which a collection of facts can be used to infer one of several’ conclusions 
by matching the IF part of a rule in the rule base. Since this task requires that a 
conclusion must be made from a collection of facts, the rule-based expert system using 
forward chaining was selected for this task. 

It is not suggested that this expert system should become the sole input to this 
decision-making process, instead it should be considered a recommendation to assist in 
reaching prompt, correct decisions. 

This study will attempt to answer the following questions concerning the 
use of expert systems: 


1. Can the regulations in CG-169 be expressed in a symbolic form that will allow 
them to be utilized in a rule base for an expert systém? 


Can_.an expert_ system provide prompt, correct recommendations to 
the Officer of the Deck in a_ user-friendly wavy? 
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These questions are addressed in Chapter III, a report of an expert system 
design, and are answered in Chapter V, summary and conclusions. Chapter II 
provides a background on the use of CG-169 by a typical Navy bridge watch-team. 
Chapter IV discusses testing methods that were used. Appendix A shows interactive 
sessions With the system in varietv of situations, Appendix B is the source code listing 
of the program, and Appendix C and Appendix D show the international and inland 


rule bases, respectively, in coded and decoded format. 
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Il. BACKGROUND 


A. RISK OF COLLISION 

To better understand the manner in which a Navy Officer of the Deck utilizes 
CG-169, it is necessary to have a general knowledge of the regulations contained in 
CG-169. This chapter provides a basic discussion of those regulations. 

Since the main purpose of CG-169 is the prevention of collisions, it is important 
to understand how the risk of collision is determined. CG-169 states “such risk shall be 
deemed to exist if the compass bearing of an approaching vessel does not appreciably 
change.” [Ref. I: p.10] Risk of collision can be determined either visually or by use of 


radar. 


B. MEETING SITUATIONS 

CG-169 defines three meeting situations that are possible when the risk of 
_ collision exists. Vessels at sea are said to be meeting when their present course and 
speed result in the vessels coming within a short distance of each other or, if no action 
‘is taken, result in a collision. Although there are differences in the specific wording of 
the international and inland regulations, both sets of regulations define the same three 
situations.’ Both definitions will be referenced, but only one will be quoted. 

The head-to-head situation exists when “vessels are meeting on reciprocal or 
’ nearly reciprocal courses.” (Ref. 1: pp.18,117] The phrase “reciprocal courses” describes 
the situation where two vessels are steering courses that are exactly opposite of each 
other. The overtaking situation exists when a vessel is “coming up with another vessel 
from a direction more than 22.5 degrees abaft her beam,” where the phrase “coming up 
with another vessel” describes the action of one vessel approaching another from the 
rear, and the phrase “22.5 degrees abaft her beam” means that a vessel is approaching 
at an angle greater than 22.5 degrees beyond an imaginary line that would run through 
the center of the vessel being overtaken and be perpendicular to its’ course. 
[Ref: 1: pp.16,119] The crossing situation exists when “vessels are approaching each 
other at right angles or obliquely . . ., other than when one steam Vessel is overtaking 
another.” [Ref. 1: pp.18,125] 

The regulations in CG-169 are designed for meeting situations between only two 


vessels. If shipping traffic other than the vessel that currently poses a risk of collision 


could potentiallv also pose a risk of collision, the maneuvering decisions must be made 
individually in the order of the next vessel that will pose the most eminent risk of 


collision. 


C. TARGET ANGLE 

The meeting situations defined above are normally determined visually. An 
important factor in determining the meeting situation is the visual aspect, or target 
angle, of the approaching vessel. The target angle is usually determined by estimating 
the compass bearing of the observer’s vessel relative to the approaching vessel's course. 
The estimation is made by means of visual sighting in daylight hours and by observing 
standard lighting configurations at night. The lighting configurations are defined in 
CG-169 and shown here in Figure 2.1. The meeting situation: is then determined by 
combining the target angle of the approaching vessel with its’ compass bearing relative 


to the heading of the observer's vessel. 


D. GIVEWAY AND STANDON DESIGNATIONS . 

CG-169 assigns a specific status to each of the vessels involved in the meeting 
situations defined above. For crossing and overtaking situations, one vessel is assigned 
the status of giveway vessel and is “directed to keep out of the way” of the other vessel, 
[Ref. 1: pp.18,119] while the other vessel is assigned the status of standon vessel and 
“shall keep her course and speed”. [Ref. 1: pp.20,118] For the head-to-head situation, 


both vessels are assigned givewav status. [Ref. 1: pp.18,117] 


E. SPECIME STATUS OF VESSELS 
The international regulations also define a special status for: 

e vessels not under command 

e vessels restricted in their ability to maneuver 

e vessels engaged in fishing 

e vessels engaged in trawling 

e sailing vessels under sail 

e vessels constrained by their draft 
CG-169 defines special lighting configurations for the hours from sunset to sunrise and 
dayshapes for the remaining hours that signal a vessel’s special status. The vessel with 
a special status will always be assigned the status of standon vessel regardless of the 


status that would have normally been assigned. The one exception to this regulation 
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Figure 2.1 Standard Lighting Diagram. 
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occurs when a vessel with special status is overtaking another vessel in which case the 
normal regulation is invoked. [Ref. 1: pp.20,22] Determination of standon, giveway, 
and special status, if it exists, in every meeting situation is necessary to ensure the safe 


passage of both vessels. 


F. SPECIAL TASKING IN INLAND WATERS 
The inland regulations specify five vessel tasks which require special attention or 

action from approaching vessels. These tasks are: 

e laving cable 

e dredging 

* servicing navigation aids 

e towing of submerged objects 

e vessels at anchor 


Special lighting configurations and dayshapes are defined for these tasks. 


G. RESTRICTED VISIBILITY 

CG-169 contains regulations that define proper conduct of vessels in or near 
areas of restricted visibihty. Both sets of regulations define similar conduct situations 
where a vessel hears the fog signal of another vessel, but only the international 


regulations define conduct for the situation where a vessel detects another vessel by 
radar alone. [Ref. 1: pp.22,116] | 


H. ACTION BY THE OFFICER OF THE DECK 

When the risk of collision is determined, the Officer of the Deck must promptly 
review all data pertinent to the situation. There are various sources for this data 
including visual and radar detection. Target angle and special status can be determined 
visually, night or day, if visibility conditions permit. Data from radar equipment can be 
utilized on a manual plotting device called a maneuvering board. Any changes in the 
distance to a vessel and/or the compass bearing of a vessel are plotted on the 
maneuvering board and provide a trace of the relative motion between the two vessels. 
The maneuvering board also provides the course, speed, closest point of approach, and 
target angle of an approaching vessel. Once all available data has been collected, the 
Officer of the Deck, by some method, references CG-169 to determine the proper 


action for the current situation. 


Is 


Automated systems exist, and are used onboard Naval ships, that provide 
recommendations to avoid collision. The recommendations from these systems are 
good input into the decision-making process, but they do not take into account the 
regulations in CG-169. These automated systems, such as the Collision Avoidance 
System developed by Raytheon, allow only a minimum-distance parameter as input, 
then the system will give recommendations to maintain that minimum distance from 
anv approaching vessel. However, the recommendation does not consider which of the 
two vessels should actually maneuver, so the Officer of the Deck must reference 
CG-169 before the recommendation can be followed. The expert system discussed in 
Chapter I, with its reference to CG-169 would be a valuable, additional input to the 
Officer of the Deck. 


16 


III. DESIGN AND IMPLEMENTATION 


a » PROBLEM STATEMENT 

As stated in Chapter I, when a risk of collision exists, the Officer of the Deck 
must review the data that describes the meeting situation, then reference CG-169, 
either literally or by memory, to determine the proper course of action that will prevent 
a collision. This process can be time-consuming and prone to error, especially if the 
Officer of the Deck relies heavily upon his memorization of CG-169. The goal of this 
thesis 1s to design and implement a rule-based expert system that will assist the Officer 
of the Deck in making prompt, correct maneuvering decisions when the risk of collision 
eXists. ) 

This expert system should receive as input data, a set of facts that describe the 
meeting situation, and it should provide as output, intermediate conclusions that 
interpret davshapes and special lighting patterns and also, final conclusions that serve 


as input to the Officer of the Deck for use in making correct maneuvering decisions. 


B. FUNCTIONAL SPECIFICATIONS 
1. Rule Base 

The rule base, or knowledge representation, in a rule-based expert system 
consists of a set of rules that are able to make recommendations or decisions when 
compared to a set of facts that describe a certain situation. The rule base in this expert 
system will be a collection of rules that equate to IF...THEN statements. [Ref 7] Each 
rule will consist of two parts. First is a conditional or IF part that describes a meeting 
situation which could possibly exist between two vessels. The second part of the rule is 
a conclusion that is correct, in accordance with CG-169, for the situation described in 
the conditional part. 

As discussed in Chapter II, two separate sets of regulations are included in 
CG-169. One governs vessels operating in designated international waters and the other 
governs vessels operating in designated inland waters. Therefore, the rule base must 
contain rules for both sets of regulations. The rule base will also contain special 


semantics rules, not taken from CG-169, which will be discussed later. 
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2. User Interface 

Since the Officer of the Deck can not allow his attention to be monopilized by 
any single function for a period longer than one or two minutes, the user interface 
must require only a minimal amount of his time, especially for user input to the 
system. The input format should be short and concise to reduce the time required for 
entry of data and to reduce the probability of syntactic errors. To provide a robust user 
interface, the parsing function will be flexible enough to handle slight variations in the 
user input, as long as it 1s syntactically correct. Examples of types of data that may be 
required as input to the system are listed below. Specific data required will vary 
according to the actual situation. 

e time of day 
e = visibility-conditions 
e standard lighting patterns observed 
e special lighting patterns observed 
e dayshapes observed 
e true compass bearing of a vessel 
¢ true compass heading of a vessel 
e visual aspect of a vessel 
e true compass heading of own ship ~ 
This data will be referred to collectively as the fact base. 

As output, the system will display a recommendation in accordance with 
CG-169 and a brief description of the rule that was matched by the fact base. This will 
allow the user to know exactly which conditions the system used as the basis for 
reaching the recommendation. Also, interpretations of special lighting patterns and 
dayshapes will be displayed as intermediate conclusions. 

3. Inference Engine 

The inference engine provides the problem-solving knowledge for the expert 
system by referencing the rule base and finding the correct rule for the situation as 
described by the fact base. The matching rule must represent the conditions necessary 
for reaching a correct conclusion. The conclusion part of the matching rule will be 
output as a recommendation. This method of establishing the fact base then searching 
through the rule base until any intermediate conclusions and the final conclusion are 
found is known as hybrid forward-backward chaining. If no match is found, a message 
to the user will be displayed that says no match exists and the system has determined 


that no risk of collision exists. 
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4. Error Handling 
This expert system will detect both syntactic and semantic errors in the user 
input and handle them in a user-friendly manner. When an error is detected, an error 
message will be displaved notifying the user of the type of error detected, then the user 
will be allowed to re-enter the data. 
5. Performance Criteria 
This system will provide recommendations fast enough to allow the user to 
utilize the recommendation to assist in avoiding a collision. The response time required 
to meet this specification will vary with different situations, so a general response-time 
requirement of ten seconds will be set. Such a response time will be adequate for all 
but the most unusual of situations. 
6. Modes 
When vessels are operating in international or inland waters, as specified in 
CG-169, they must use international or inland rules respectively. Accordingly, this 
expert svstem provides separate modes of operation for international and inland 
situations. The user will choose the appropriate mode at the beginning of a session and 


that mode will remain in effect for entire session. 


C. PROBLEM DECOMPOSITION 
1. Basic Expert System Structure 
A typical rule-based expert system consists of a rule base, an inference engine, 
and a user interface. This basic structure will be followed in this thesis. Each of the 
three main parts of the expert svstem will be broken into lower-level routines by 
decomposing the task into separate subtasks. 
2. Rule Base Design and Implementation 
a. Writing the Rules 
The first step in the design of the rule base is writing two sets of rules, one 
for international waters and the other for inland waters. Due to differences in the 
methods of navigating in international waters and inland waters, and differences in the 
tvpes of regulations that apply to similar situations, the combination of facts required 
for writing the two rule sets contains some differences. For international rules, some 
combination of the following facts is required. 
e time of day 
e relative bearing of the other vessel 


¢ target angle of the other vessel 
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® indication of reduced visibility 
e indication of special status of the other vessel 
e indication of special status of own ship 
Inland rules require some combination of the following facts. 
¢ time of day 
¢ type of meeting situation 
¢ indication of reduced visibility 
¢ indication of special status of the other vessel 
e indication that other vessel is engaged in special tasking 
For both sets, the majority of the rules were determined by hypothetically 
creating each of the three possible meeting situations then systematically varying the 
combinations of facts described above. When a combination of facts was set, it was 
recorded as the conditional part of that rule. Then CG-169 was referenced to provide 
the conclusion part that was correct for that particular combination of facts. The rules 
that provide the intermediate conclusions were determined from the definitions of 
davshapes and special lighting patterns in CG-169. 
. b. Symbolic Representation 
The two rule sets that resulted from the process described above, although 
small in comparison to the rule bases found in many expert systems, would require a 
relatively large amount of storage space in a microcomputer. To overcome that 
problem, a symbolic representation was developed by encoding each fact as a single 
character and each conclusion as an integer value. Appendix C and Appendix D 
contain samples of IF...THEN rules in their coded and decoded formats. The encoded 
format will also increase the speed at which the inference engine is able to search the 
rule base, because the comparison of the short character strings is faster than the 
comparison of entire sentences of fact descriptions. 
c. Data Structure 
Because the two rule sets developed above are of fixed sizes that will not 
change during execution of the program, an array of records was chosen as the data 
structure for the rules. Each record in the array consists of one field for the encoded 
string of conditions and one field for the encoded conclusion. 
d. Partitioning 
Separate arravs are used for storing the two rule sets. This partitioning of 
the rules increases the speed of the searching process that occurs each time the 


inference engine searches for a match to the fact base. [Ref. 8] 
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e. Implementation 

When the mode, international or inland, is chosen, the appropriate rule set 
is read into an array from a text file. One of two routines, BUILD_RULES for 
international rules or BUILD_RULES2 for inland, is called to build the rule base. 
Appendix C shows the international rules in encoded and decoded form, and Appendix 
D shows the same for the inland rules. 

3. User Interface Design and Implementation 
a. Basic Design | 

The user interface performs the critical tasks of receiving input from the 
user, creating a fact array, and providing output to the user as dictated by the inference 
engine. Numbered selections of facts in the form of large menus allow users to input 
multiple selections with a single entry. This will help to reduce the time required for 
user interface. Individual requests for data can be made to the user as additional facts 
are required by the system. The facts entered bv the user will be encoded in the same 
format as the conditional part of the rules in the rule base, so that the inference engine 
will be able to compare the fact base to the rules. Output is generated from the 
program in the form of facts from the conditional part:and conclusions from the 
conclusion part. Both of these rule parts are decoded and displayed in a format that 
presents the conclusion as a recommendation and the conditions as a list of facts that 
describe the situation as input by the user. 

b. User Input Implementation 

When the program is executed, the user is prompted for a mode selection, 
either inland or international. The selected mode will remain in effect until program 
execution is halted, thus the user will not be required to make a mode selection for 
each new situation in the session. . 

Figure 3.1 shows the menu that is displayed when the international mode is 
selected. From this menu, the user enters all facts concerning the meeting situation that 
are currently true by entering the appropriate selection numbers separated by commas. 
For example, an entry that would be made when sighting a vessel at night would be: 

e 2,18 

International mode requires additional data to completely describe a 

meeting situation. The user is prompted, one question at a time, for the following data: 
¢ own ship’s heading 
e other vessel's heading 


¢ other vessel's target angle (during daylight hours only) 
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ENTER THE CORRESPONDING NUMBER FOR ANY OF THE FOLLOWING 
CONDITIONS THAT CURRENTLY EXIST.NUMBERS SHOULD BE SEPARATED 
BY A COMMA. 
EXAMPLE: 2,6,16 
4. TIME PERIOD IS AFTER SUNRISE AND BEFORE SUNSET. 
2. TIME PERIOD IS AFTER SUNSET AND BEFORE SUNRISE. 
3. REDUCED VISIBILITY:RADAR CONTACT. 
4. REDUCED VISIBILITY:SOUND SIGNAL HEARD FWD OF BEAM. 
S. OWN SHIP CURRENTLY HAS SPECIAL STATUS. 
ONE OF THE FOLLOWING SPECIAL LIGHTING PATTERNS IS OBSERVED. 
6. RED OVER GREEN. 9. RED OVER WHITE. 
7. RED OVER RED. 40. GREEN OVER WHITE. 
8. RED OVER WHITE OVER RED. 11. RED OVER RED OVER RED. 
ONE OF THE FOLLOWING DAYSHAPES IS OBSERVED. 
42. TWO BLACK BALLS. 14. DOUBLE CONES. 
43. BALL DIAMOND BALL. 145. CYLINDER. 
ONE OF THE FOLLOWING STANDARD LIGHTING PATTERNS IS OBSERVED. 
46. PORT AND STBD RUNNING, MASTHEAD, RANGE. 
47. PORT RUNNING, MASTHEAD, RANGE. 
148. STBD RUNNING, MASTHEAD, RANGE. 
19. STERN. 





Figure 3.1 International Menu. 


Figure 3.2 shows the two menus that are displaved in the inland mode. 
Two menus were necessary because my microcomputer terminal cannot display all of 
the inland facts on one screen. The selections are made as in the international mode. 
Selections from the first menu are combined with any selections from the second menu 
and displaved as one string to show the user the entire entry. All data necessary for 
inland mode operation is provided by these two menus. 

c. Encoding Implementation : 

The string of input selection numbers separated by commas is parsed into 
individual numbers. Each number is passed to a CASE statement that maps the 
number to a code character, then adds the code to the fact base, called FACT FIG in 
the program. 

The same CASE statement simutaneously builds a second code string 
named MID_RULE. This string is used in semantics checking which will be discussed 


later. 


tJ 
tJ 


























ENTER THE CORRESPONDING NUMBER FOR ANY OF THE FOLLOWING 
CONDITIONS THAT CURRENTLY EXIST. NUMBERS SHOULD BE SEPARATED 
BY A COMMA. EXAMPLE: 2,6 . A SECOND MENU WILL DISPLAY ADDITIONAL 
CONDITIONS WHEN THE ENTER KEY IS PRESSED. 
4. TIME PERIOD IS AFTER SUNRISE AND BEFORE SUNSET. 
2. TIME PERIOD IS AFTER SUNSET ANO BEFORE SUNRISE. 
3. REQUCED VISIBILITY:FOG SIGNAL HEARD FWO OF BEAM. 
4. CONTACT IS A SAILING VESSEL UNDER SAIL. 
ONE OF THE FOLLOWING MEETING SITUATIONS EXISTS: 
S. CONTACT CROSSING FROM PORT TO STBD. 
G. CONTACT CROSSING FROM STBD TO PORT. 
7. MEETING CONTACT HEAD TO HEAD. 
8. OVERTAKING CONTACT. 9. BEING OVERTAKEN BY CONTACT. 
ONE OF THE FOLLOWING STANDARD LIGHTING PATTERNS IS OBSERVED: 
19. PORT AND STBO RUNNING, MASTHEAD, RANGE. 
44. PORT RUNNING, MASTHEAD, RANGE. 
42. STBD RUNNING, MASTHEAD, RANGE. 
43. STERN. 








CONTINUE NUMBER SELECTION WITH THE CONDITIONS BELOW. ONLY ONE 
SELECTION WILL NORMALLY BE MADE FROM THIS MENU, SO NO COMMAS 
SHOULD BE NEEOQEO. EXAMPLE: 17 
ONE OF THE FOLLOWING DAYSHAPES IS OBSERVED: 
14. BASKET. 49. ONE BLACK BALL. 
45. TWO ORANGE & WHITE VERTICALLY STRIPED BALLS. 
46. OIAMONO,TOP HALF BLACK & WHITE STRIPED,LOWER HALF SOLIO RED. 
47. BLACK & WHITE STRIPED BALL OVER SOLIO REO BALL. 
48. TWO BLACK BALLS. 
ONE OF THE FOLLOWING SPECIAL LIGHTING PATTERNS: 
20. REO OVER WHITE. 26. RED OVER RED. 
21. WHITE OVER RED OVER RED OVER WHITE. 
22. WHITE OVER RED OVER RED. 
23. WHITE OVER RED OVER RED OVER RED OVER RED. 
24. RED OVER RED OVER RED. 
25. ONE WHITE FWO AND ONE WHITE AFT. 


Figure 3.2. Inland Menu. 


The additional data that is entered separately in the international mode 1s 
encoded in a different manner. This data is used to calculate the target angle and 
relative bearing of an approaching vessel which are in turn used to determine the 
meeting situation that exists between the two vessels. Although the target angle and 
relative bearing can each have three hundred sixty different values, the manner in 


which the three possible meeting situations are defined by CG-169 simplifies encoding 


p38, 


of the values. The three hundred sixty possible values can be divided into four sectors 
as shown in Figure 3.3. A vessel approaching in sectors A or B indicates a crossing 
situation, in sector C a head-to-head situation, and in sector D an overtaking situation. 
Both target angle and relative bearing values are encoded by assigning code characters 
that correspond to the sectors. These additional characters are also added to 
FACT_FIG. 

When navigating in inland waters, the meeting situation can be easily 
determined visually in normal visibility conditions, because navigation is conducted 
within marked shipping channels. This means that the additional data required for the 
international mode is not needed in the inland mode. For restricted visibility 
conditions, no inland rule exists to cover situations where an approaching vessel is 
being tracked on radar only, so the additional data is not used then. 

d. Program-Output Implementation 

When the inference engine finds a rule that matches the fact base, it passes 
the encoded conclusion to a CASE statement which decodes and displavs it. The 
conditional part of the matched rule is passed to a different CASE statement which 
decodes it and displays it with the conclusion to allow the user to see the conclusion 
together with the facts that were used to arrive at the conclusion. 

4. Error Checking 

Error checking includes syntax, semantics, and range checking. Selection- 
number strings entered from the menus are checked for proper format, which is a string 
of numbers separated by commas. Each individual selection number is range-checked 
to ensure that it is a member of the set of possible selections. The entire group of 
selection numbers is checked for duplication of selections. Separate rountines, CHECK 
for international mode and CHECK2 for inland mode, check for two selections from 
certain groupings of selections. Normally only one selection will be true from each of 
these groupings. An example of such an error would be the selection of two standard 
lighting configurations from the grouping shown in Figure 3.4 . A vessel normally 
displays only one standard lighting configuration. 

The compass-bearing data that is entered in the international mode 1s range- 
checked to ensure that the bearing is within the compass-bearing range of 000 to 359 
degrees. The target angle bearings entered by the user are compared to those 
calculated by the program to ensure there is not a difference between the bearings that 


is Significant enough to affect the determination of the correct meeting situation. 
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Figure 3.3 Bearing Sectors. 
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ONE OF THE FOLLOWING STANDARD LIGHTING PATTERNS IS OBSERVED. 
146. PORT AND STBD RUNNING,MASTHEAD, RANGE. 
47. PORT RUNNING, MASTHEAD, RANGE. 


18. STBO RUNNING, MASTHEAD, RANGE. 
19. STERN. 





Figure 3.4 Standard Lighting Configuration Grouping. 


If one of the errors described above is detected, an error message is displayed 
to the user indicating the type of error, then the program returns to the point where 
the erroneous data was entered and allows the data to be re-entered. 

Semantics checking is performed by the inference engine. The fact string 
MID RULE is passed to INFER_ENG and compared to the rule base. In addition to 
the normal rules, both rule bases contain rules with conditional parts that describe 
situations which do not normally occur. If MID RULE matches one of these special 
semantics rules, the fact base entered by the user is not semantically correct. Examples 
of such errors are: 

e observing anv type of lights between sunrise and sunset 
e observing davshapes between sunset and sunrise 
e selection of both time periods in one situation 
If such an error is detected, an error message is displayed that explains which selections 
are inconipatible and whv they do not normally occur together. The program will then 
return the user to the opening menu and allow the data to be re-entered. 
5. Inference Engine Design and Implementation 

a. Basic Design 

The inference engine will svstematically cycle through the rule base 
comparing the fact base to the rules until a match ts found, if one exists. If no match 
exists, this 1§ an indication that no risk of collision exists. 

Since each situation represented in the rule base has only one possible 
conclusion, no two rules have identical conditonal parts. This means that the inference 
engine must only search the rule base until all matches, intermediate and final, are 
found. This will prevent needless waste of time spent searching the rule base when a 


match has already been found. 
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b. Secondary Tasks 

The inference engine will also perform two secondary tasks. The first 
consists of the interpretation of observed special lighting configurations and dayshapes 
which are indications that the approaching vessel has a special status. This 1s 
accomplished by matching a rule which has as its conditional part the lighting 
configuration or dayshape and has as its conclusion part the corresponding 
interpretation. This task is performed when a fact concerning dayshapes or special 
lighting patterns is entered. The second task consists of checking the user input for 
semantics errors. The semantics error is detected by matching a rule which has a 
conclusion part that states why the collection of facts in the conditional part are not 
compatible. This task is performed after all of the facts have been entered. 

c. Implementation : 

The routine INFER_ENG performs the tasks describes above. It steps 
sequentially through the rule base array by comparing the fact base to the conditional 
part of each rule until it finds a match or reaches the end of the array without finding a 
match. The comparison is accomplished by nested FOR loops that sequentially 
compare each code character in the fact base to all of the code characters in the rule 
individually. This process provides the flexibility of order independence for the fact 
base. The order independence means that the selection numbers can be entered in any 


order. 


D. PROGRAM HIERARCHY 
Figure 3.5 shows the hierarchy of routines under the main program as 
implemented in this thesis. The source code listing for the program is contained in 


Appendix A. Sample sessions of operation in both modes are contained in Appendix B. 
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Figure 3.5 Program Hierarchy. 


28 


IV. TESTING 


ae 6 RESPONSE TIME 

One of the main requirements of this expert system is the ability to provide 
recommendations in timely manner. When the correct maneuvering decision can be 
made and executed early in a meeting situation, the risk of collision is significantly 
reduced. To test the response time of this system, fifty test cases were selected. These 
cases covered a wide range of complexity. At the lower end of the complexity scale was 
a case that required only two facts to describe the situation. At the upper end of the 
scale Was a case that required the maximum six facts for its description. The 
complexitv of the remaining cases ranged between the two described above. Included 
Were cases that had no match in the rule base which required a search of the entire rule 
base. The cases were divided evenly between the international and inland modes. 
Response times ranged from 0.4 to 1.12 seconds with an average response time of 0.73 
seconds. The-system is clearly able to provide correct recommendations within a 


satisfactory response time. 


B. ACCURACY 

It is essential to the operation of this expert system that the meeting tvpe is 
correctly identified. If the wrong meeting type is calculated by the program, the 
system’s recommendation to the Officer of the Deck could possibly be incorrect for the 
actual situation. The condition that would most probably result in an incorrect 
calculation occurs when the relative bearing of an approaching vessel is very near the 
sector boundaries that were described in Figure 3.3. Test cases were selected with 
relative bearings one degree on each side of the sector boundaries to ensure that the 


program could correctly determine the meeting situation. 


MY 


V. SUMMARY 


A. SUCCESSES 

The successful implementation of the encoded regulations demonstrated that the 
answer to the first research question of this thesis is “yes”, the regulations in CG-169 
can be expressed in a symbolic form that will allow them to be used as a rule base. As 
discussed in Chapter III and demonstrated in Appendix A, use of the expert system 
implemented in this thesis 1s quite simple. The only prior knowledge of the system 
required is the activation of the program by typing the program name at the computer 
kevboard. The menu-driven format reduces user input requirements and assumes only a 
limited knowledge of CG-169 and nautical terminology. This means the system can be 
quickly integrated into the bridge-watch routine. The response times discussed in 
Chapter IV show that this expert svstem can provide prompt recommendations for 
even the most complicated situations involving risk of collision. And, as discussed in 
Chapter III, all recommendations provided by this expert system are taken directly 
from CG-169, and thus are correct for the situation that is entered into the system. 
Therefore, the answer to the second research question is “yes”, the expert system 
implemented in this thesis provides prompt, correct recommendations to the Officer of 
the Deck in a user-friendly manner. 

By _ automating the manual procedure of looking into CG-169 for the 
interpretation of situations that involve risk of collision, this expert system could 
certainly help to reduce the time required of the Officer of the Deck to make a correct 
maneuvering decision and reduces the probability of error in making the correct 
decision. Removing the manual “look-up” procedure also frees the Officer of the Deck 
to more closely monitor the operation of the bridge watch team during the critical 
function of preventing collisions at sea. 

The robust nature of this expert system combined with the explanatory error- 
response messages create an excellent teaching tool for Officer of the Deck trainees. 
Pre-written sessions could be constructed to provide training for various situations that 
involve risk of collision. This training function could be used by bridge watch teams 


while underway or as part of inport Officer of the Deck training. 


Implementation of this expert system for shipboard use would be relatively 
Inexpensive in terms of cost and quite flexible in terms of hardware selection. The 
compiled program in a .COM file and additional rule base files require only thirty-six 
kilobytes of memory, therefore almost any small microcomputer could run the 
program. The program is written in Turbo Pascal which is available for both CP/M 
and DOS operating systems, providing a very wide market of microcomputers from 
which to choose. With the increased presence of microcomputers onboard Naval 
ships, the system could even be implemented with existing computer resources. 

Some Officers of the Deck do rely on their memorization of CG-169 for making 
maneuvering decisions, but this practice is not commonly supported by commanding 
officers. Since output from this system is derived directly from CG-169, 
recommendations from this system can serve to lower the probability of error that 
exists when an Officer of the Deck relies too heavily on his or her memorization of 
CG-169. Although this probability is not significant as it exists now, this system might 


help to prevent a disaster that could result from the infrequent error. 


B. LIMITATIONS 

Although this expert system can provide prompt, correct recommendations, it is 
not a real-time system, and thus it views every situation with no sense of timing. A - 
certain risk of collision situation may require twenty-five minutes for the actual closest 
point of approach between the vessels to occur due to a slow closure rate. However, 
the same situation might require only ten minutes to reach the closest point of 
approach if the closure rate is very fast. Although there would be no difference 
between the recommendations given in the two cases above, it would be an added 
advantage if the recommendation could also take into consideration the specific time 
related issues involved in making a maneuvering decision. 

To effect the extension of this system to provide real-time recommendations, a 
system clock would be required in the computer system being used, and modifications 
to the actual expert svstem program would be required to allow the input of changes in 
the bearing and range of the other vessel. The extension of this expert svstem to 
become a real-time system could enhance its value to the Officer of the Deck. 

The recommendations provided by this expert system are of a very general 
nature, and must be recognized as such. This system does not consider the tactical 


situation, other shipping in the vicinity that is not involved in the current meeting 
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situation, or concern for navigational hazards that could be present. System users must 
take into consideration these other factors before making a final decision. 

Although the time required for data entry into this system is short, it does require 
the user to shift their attention from the actions of the approaching vessel. To shorten 
the data-entry time even more, a direct data entry from the radar equipment could be 
used. However, visually aquired data, such as observation of dayshapes and lighting 


patterns, would require manual entry. 


32 


APPENDIX A 
SOURCE CODE LISTING 


PROGRAM RDRULES; 


CONST 
MAX_INTL_RULE = 1573 
MAX_INLD_RULE = 105; 
TYPE 
INPUT_STR = STRING(12]3 
CODE_INT = 0..303 
SHRT_STR = STRING(3 ]3 
RULE_STR = STRING(10];3 
RULE_REC = RECORD 


CONL:CODE_INTs} 

RULE_FIG:RULE_STR 
END ; 
ARRAY(1..MAX_INTL_RULE] OF RULE_RECs 
ARRAY(1..MAX_INLD_RULE ] OF RULE_RECs 


INTL_RULE_ARRAY 
INLO_RULE_ARRAY 
SHORT_INT = 1..23 

SELECT_ARRAY = ARRAY(1..71] OF INTEGER} 


VAR 

SETTING » LTGCODE » TIME , FOG, FOG2 »OSHAPE »SPEC_LTS»RUN_LTS, 
MIO_SIZE ,MAX_FAX , TIME1 > TIME2:CODE_INT 

MIO_RULE ,FACT_FIG:RULE_STR} ; 

INTL_RULES: INTL_RULE_ARRAY 3} 

INLO_RULES: INLU_RULE_ARRAY;} 

FILEVAR: TEXT $ 

RULE_SET »LOW_VIS:SHORT_INT3 

GOOD »FOG_SIG_CONTACT , CONTINUE , FOUND » QUIT : BOOLEAN} 

ANS: CHAR} 

CONTACT_TRUE_BRG:SHRT_STR} 


PROCEDURE MAP_CONL{(CODE:CODE_INT )3 


BEGIN 
CASE CODE OF 
1:WRITELN('' YOU ARE STAND-ON VESSEL. MAINTAIN COURSE AND SPEED.‘ Js 
2:BEGIN 
WRITELN(' CONTACT HAS SPECIAL STATUS. YOU ARE GIVE-WAY VESSEL. ')3 
WRITELN(' MANEUVER TO AVOID CONTACT. TURN STBD IF POSSIBLE. '° )3 
IF (TIME = 1) THEN 
WRITELN(* SOUND ONE SHORT BLAST TO SIGNAL A STBD TURN. ') 
ELSE 
WRITELN( ' SHOW ONE LIGHT FLASH TO SIGNAL A STBD TURN. ') 
END $ 
3:BEGIN 
WRITELN(’ YOU ARE GIVE-WAY VESSEL. MANEUVER TO AVOID CONTACT. ‘)3 
WRITELN(* TURN STBD IF POSSIBLE.‘ )3 
IF (RULE_SET = 1) THEN 
IF (TIME = 1) THEN 
WRITELN(€* SOUND ONE SHORT BLAST TO SIGNAL A STBD TURN. ‘) 
ELSE 
WRITELN( * SHOW ONE LIGHT FLASH TO SIGNAL A STBD TURN. ') 
END$ 
4% :BEGIN 
WRITELN(* OWN SHIP HAS SPECIAL STATUS. YOU ARE STAND-ON VESSEL. ' )3 
WRITELN('' MAINTAIN COURSE AND SPEED. ') 
END $s 
5:BEGIN 
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WRITELN(' BOTH SHIPS MUST GIVE WAY. ALTER COURSE TO STBD TO' }3 
WRITELN( * AVOID CONTACT. ' }3 
IF (TIME = 1) THEN 
WRITELN(' SOUND ONE SHORT BLAST TO SIGNAL A STBD TURN. ') 
ELSE 
WRITELN( ' SHOW ONE LIGHT FLASH TO SIGNAL A STBD TURN. ') 
END 3 
6:BEGIN 
FACT_FIG := FACT_FIG + ‘z'‘'}3 
MAX_FAX := MAX_FAX + 1 
END 3 
7:BEGIN 
WRITELN3 
WRITELN(* REDUCE SPEED TO BARE STEERAGE-WAY. PROCEED WITH EXTREME '' }3 
WRITELN( ' CAUTION UNTIL THE DANGER OF COLLISION IS OVER. ' )3 
WRITELN; 
END 3 
8:BEGIN 
CONTINUE := FALSE3 
WRITELNS3 
WRITELN( ‘SEMANTIC ERROR. ' }3 
WRITELN( "SELECTIONS ',TIME,' AND °,SPEC_LTS,' ARE NOT COMPATIBLE.‘ )3 
WRITELN( "LIGHTS OF ANY TYPE ARE NOT NORMALLY SEEN AFTER SUNRISE. ' }3 
WRITELN( "RE-ENTER SELECTION NUMBERS. ' }3 
WRITELN 
END} 
9:BEGIN 
CONTINUE := FALSE} 
WRITELN3 
WRITELN( 'SEMANTIC ERROR. ' )3 
WRITELN( 'SELECTIONS ',TIME,* AND ‘,RUN_LTS,' ARE NOT COMPATIBLE.' )3 
WRITELN( 'LIGHTS OF ANY TYPE ARE NOT NORMALLY SEEN AFTER SUNRISE. ')3 
WRITELN( 'RE-ENTER SELECTION NUMBERS. ‘ }3 


WRITELN _ . 
+ END$ 
10:BEGIN 

CONTINUE := FALSE} 

WRITELN$ 


WRITELN( ‘SEMANTIC ERROR. ')3 
WRITELN( ‘SELECTIONS ',TIME,' AND ‘,SPEC_LTS,‘ AND ',RUN_LTS})3 
WRITELN( ‘ARE NOT COMPATIBLE. LIGHTS OF ANY TYPE ARE NOT NORMALLY ''‘ )3 
WRITELN( ‘DISPLAYED AFTER SUNRISE. ')3 
WRITELN( "RE-ENTER SELECTION NUMBERS. ' )3 
WRITELN 
END 3 
11:BEGIN 
CONTINUE := FALSE3 
WRITELN3 
WRITELN( 'SEMANTIC ERROR. '}3 
WRITELN( ‘SELECTIONS ‘,TIME,' AND ‘,DSHAPE,‘ ARE NOT COMPATIBLE. ' )3 
WRITELN( 'DAYSHAPES ARE NOT NORMALLY DISPLAYED AFTER SUNSET. ')3 
WRITELN( 'RE-ENTER SELECTION NUMBERS. ')3 
WRITELN 
END 3 
12:BEGIN 
CONTINUE := FALSE3 
WRITELN3 
WRITELN( ‘SEMANTIC ERROR. ' 3 
WRITE( 'SELECTIONS ' ,DSHAPE )3 
IF (LOW_VIS = 2) THEN 
WRITELN('' AND ',FOG,' ARE NOT COMPATIBLE.‘ ) 
ELSE 
WRITELN('' AND ',FOG2,' ARE NOT COMPATIBLE. ' )3 
WRITELN( 'DAYSHAPES CAN NOT NORMALLY BE SEEN DURING REDUCED‘ })3 
WRITELN( 'VISIBILITY CONDITIONS. ' }3 
WRITELN( ‘RE-ENTER SELECTION NUMBERS. ')3 
WRITELN 
END; 
13:BEGIN 
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CONTINUE := FALSE} 
WRITELNS$ 
WRITELN( ‘SEMANTIC ERROR. ' )3 
WRITE( "SELECTIONS ',SPEC_LTS )3 
IF (LOW_VIS = 2) THEN 
WRITELN(* AND ‘,FOG,' ARE NOT COMPATIBLE. ') 
ELSE 
WRITELN(' AND ',FOG2,' ARE NOT COMPATIBLE. ')5 


WRITELN( ‘LIGHTS OF ANY TYPE CAN NOT NORMALLY BE SEEN DURING REDUCED ' )35 


WRITELN( ‘VISIBILITY CONDITIONS. ')3 
WRITELN( "RE-ENTER SELECTION NUMBERS. ')3 
WRITELN 
END$ 
14¢:BEGIN 
CONTINUE := FALSE$ 
WRITELN$ 
WRITELN( "SEMANTIC ERROR. ' )3 
WRITE( ‘SELECTIONS ',RUN_LTS )3 
IF (LOW_VIS = 2) THEN 
WRITELN(' AND *,FOG," ARE NOT COMPATIBLE. ') 
ELSE 
WRITELN(* AND *,FOG2,' ARE NOT COMPATIBLE. ' )5 


WRITELN( "LIGHTS OF ANY TYPE CAN NOT NORMALLY BE SEEN DURING REDUCED‘ )3 


WRITELN( "VISIBILITY CONDITIONS. ‘)3 
WRITELN( "RE-ENTER SELECTION NUMBERS. '')3 
WRITELN 
END $+ 
15:BEGIN 
CONTINUE := FALSEs 
WRITELN$ 
WRITELN( 'SEMANTIC ERROR. ' )3 
WRITE( ‘SELECTIONS ',RUN_LTS,' AND ',SPEC_LTS)3 
IF (LOW_VIS = 2) THEN 
WRITELN(' AND ',FOG," ARE NOT COMPATIBLE. ') 
ELSE 
WRITELN(' AND ‘,FOGZ2,' ARE NOT COMPATIBLE. ')3 


WRITELN( "LIGHTS OF ANY TYPE CAN NOT NORMALLY BE SEEN DURING REDUCED ' );3 


WRITELN( ‘VISIBILITY CONDITIONS. ' )5 
WRITELN( ‘RE-ENTER SELECTION NUMBERS. ' )3 
WRITELN 
END} 
16:BEGIN , 
CONTINUE := FALSE$ 
WRITELN$ 
WRITELN( ‘SEMANTIC ERROR. ' )3 


WRITELN( ‘SELECTION ',TIME2Z,* REQUIRES ANOTHER SELECTION SUCH AS A')}3 
WRITELN( ‘LIGHTING PATTERN OR REDUCED VISIBILITY CONDITION BEFORE THE‘ )3 


WRITELN( ‘SITUATION CAN BE ANALYZED. '')3 
WRITELN( ‘RE-ENTER SELECTION NUMBERS. ' )3 
WRITELN 
END 3 
17:BEGIN 
CONTINUE := FALSE} 
WRITELN}$ 
WRITELN( ‘SEMANTIC ERROR. ' )3 
WRITELN( ‘SELECTION ‘,SPEC_LTS,* ALSO REQUIRES A STANDARD‘ )3 
WRITELN( ‘LIGHTING PATTERN. SPECIAL LIGHTING PATTERNS ARE NOT')3 


WRITELN( "NORMALLY DISPLAYED WITHOUT A STANDARD LIGHTING PATTERN. ' )3 


WRITELN( "RE-ENTER SELECTION NUMBERS. ' )3 
WRITELN 

END 3 

18:BEGIN 

CONTINUE := FALSE} 
WRITELN} 
WRITELN( "SEMANTIC ERROR. ' )3 
WRITELN( ‘SELECTIONS ‘,FOG,' AND ',FOG2,°' ARE NOT COMPATIBLE. ' }3 
WRITELN( "RE-ENTER SELECTION NUMBERS. ' )3 
WRITELN 

END} 
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19:BEGIN 
CONTINUE := FALSE3 
WRITELN} 
WRITELN( "SEMANTIC ERROR. " }3 
WRITELN( ‘SELECTIONS ',TIME1,' AND '‘,TIME2,' ARE NOT COMPATIBLE. ' )3 
WRITELN( 'THE TWO POSSIBLE TIME-PERIODS CAN NOT OCCUR TOGETHER. ‘ }3 
WRITELN( ‘RE-ENTER SELECTION NUMBERS. ‘ }3 
WRITELN 
END} 
20:BEGIN 
CONTINUE := FALSE} 
WRITELN3 
WRITELN( "SEMANTIC ERROR. ‘ }3 
WRITELN( 'SELECTIONS *,DSHAPE,* AND ',RUN_LTS,‘* AND * ,FOG2)3 
WRITELN( ‘ARE NOT COMPATIBLE. LIGHTS OR DAYSHAPES CAN NOT' }3 
WRITELN( 'NORMALLY BE SEEN DURING REDUCED VISIBILITY CONDITIONS. ' })3 
WRITELN( "RE-ENTER SELECTION NUMBERS. ‘ )3 
WRITELN 
END 3 
21:BEGIN 
CONTINUE := FALSE} 
WRITELN} 
WRITELN( ‘SEMANTIC ERROR. ‘ }3 
WRITELN( "SELECTIONS ',DSHAPE,' AND ',FOG2,' AND ‘,SPEC_LTS,‘ AND‘ }3 
WRITELN( ‘RUN_LTS ARE NOT COMPATIBLE. LIGHTS OR DAYSHAPES CAN NOT' }3 
WRITELN( "NORMALLY BE SEEN DURING REDUCED VISIBILITY CONDITIONS. ' }3 
WRITELN( 'RE-ENTER SELECTION NUMBERS. ' }3 
WRITELN 
END; 
22:BEGIN 
WRITELN('' BOTH SHIPS MUST GIVE WAY. GIVE ONE SHORT BLAST TO SIGNAL' }3 
WRITELN(' YOUR INTENTION TO ALTER COURSE TO STBD OR ANSWER THE ‘ })3 
WRITELN('' CONTACT''S SIGNAL WITH THE SAME SIGNAL. DO NOT ALTER COURSE' }3 
WRITELN(' UNTIL YOU AND THE CONTACT HAVE MATCHED SIGNALS. ') 
END} 
23:BEGIN 
WRITELN(' YOU ARE GIVE-WAY VESSEL. SOUND ONE SHORT BLAST IF YOU‘ }3 
WRITELN(' INTEND TO OVERTAKE ON THE STBD SIDE OR TWO SHORT BLASTS IF' )3 
WRITELN(*' YOU INTEND TO OVERTAKE ON THE PORT SIDE. WAIT FOR ‘ }3 
WRITELN(' THE SAME SIGNAL IN AGREEMENT BEFORE OVERTAKING. IF THE' )3 
WRITELN(' CONTACT ANSWERS WITH THE DANGER SIGNAL, FOUR OR MORE SHORT‘ }3 
WRITELN(' BLASTS IN RAPID SUCCESSION, DO NOT ATTEMPT TO OVERTAKE THE' }3 
WRITELN( * CONTACT. ' ) 


ENDs 
24: BEGIN 
WRITELN(' YOU MUST KEEP OUT OF THE WAY OF SAILING VESSELS UNLESS YOU' }3 
WRITELN('' ARE CONSTRAINED BY A NARROW CHANNEL. IF YOU ARE CONSTRAINED' }3 
WRITELN(' AND A CLOSE QUARTER SITUATION IS EMINENT, SOUND THE DANGER ' }3 
WRITELN(' SIGNAL, FOUR OR MORE SHORT BLASTS IN RAPID SUCCESSION. ‘} 
END 3 
25:BEGIN 


WRITELN(' REDUCE SPEED TO ENSURE SAFETY OF BOTH VESSELS. WHEN PASSING‘ }3 
WRITELN(' WITHIN 200 FT. OF CONTACT, REDUCE SPEED TO 5 MPH OR LESS.') 


END} 
26:BEGIN 
WRITELN(' WHEN WITHIN ONE MILE OF CONTACT, INDICATE INTENTION TO PASS' }3 
WRITELN(' WITH ONE LONG BLAST. CONTACT WILL DIRECT YOU TO PROPER SIDE' }3 
WRITELN(' FOR PASSAGE WITH ONE SHORT BLAST FOR A STBD PASSAGE OR TWO' )3 


WRITELN( ' ACKNOWLEDGE. IF CONTACT SOUNDS DANGER SIGNAL, FOUR OR MORE' }3 
WRITELN(' SHORT BLASTS IN RAPID SUCCESSION, DO NOT ATTEMPT TO PASS. ' }3 
WRITELN( ‘ SLOW DOWN OR STOP AND AWAIT FURTHER SIGNAL. ' ) 
END} 

27:BEGIN 
WRITELN(' YOU ARE STAND-ON VESSEL. MAINTAIN COURSE AND SPEED. ' )3 
WRITELN(' ANSWER PASSING VESSEL''S INDICATION OF DESIRED SIDE TO PASS' )3$ 
WRITELN(' WITH SAME SIGNAL IF IT IS SAFE, BUT ANSWER WITH THE DANGER' )3 
WRITELN(' SIGNAL, FOUR OR MORE SHORT BLASTS IN RAPID SUCCESSION, IF ')3 
WRITELN(' THERE IS A DANGER.') 


WRITELN(' SHORT BLASTS FOR A PORT PASSAGE. ANSWER WITH SAME SIGNAL TO‘ }3 
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END; 


28:WRITELN( ' MANEUVER TO AVOID A VESSEL AT ANCHOR. ')3 


END END} 


PROCEDURE MAP_TA (VAR QUADRANT : CHAR sBEARING: INTEGER )3 


BEGIN 
IF (BEARING>=1) AND (BEARING<=112) THEN 
QUADRANT ;:= ‘c' 
ELSE IF (BEARING>=113) AND (BEARING<=247) THEN 


QUADRANT := ‘d' 

ELSE IF (BEARING>=248) AND (BEARING<=359) THEN 
QUADRANT := ‘e' 

EESE 


QUADRANT := 'f' END; 


PROCEDURE MAP_RB (VAR QUADRANT :CHAR}SBEARING: INTEGER )3 


BEGIN 

IF (BEARING>=1) AND (BEARING<=112) THEN 
QUADRANT := ‘g' 

ELSE IF (BEARING>=113) AND (BEARING<=247) THEN 
QUADRANT := ‘'h' 

ELSE IF (BEARING>=248) AND (BEARING<=359) THEN 
QUADRANT := ‘i' 

EESEe 
QUADRANT := '3' END; 


PROCEDURE CALC_TGT_ANG (VAR TA:SHRT_STR3}HTB»HSH:SHRT_STR )3 


VAR 
CODE »TA_INT » YTB_INT »HSH_INT »HTB_INT : INTEGER} 


BEGIN 5 
VALC HTB ,HTB_INT ,CODE )3 
VAL(CHSH »HSH_INT »CODE )3 
YTB_INT := HTB_INT-180; 
IF YTB_INT < O THEN 
YTB_INT := YTB_INT + 360; 
TA_INT := YTB_INT - HSH_INT; 
IF TA_INT < O THEN 
TALINT := TA_LINT + 3603 
IF (TA_LINT < 100) AND (TA_INT > 9) THEN BEGIN 
STR(TA_INT »TA)3 
TA := 'O" + TA} 
END 
ELSE IF (TA_LINT >= 0) AND (TA_INT <= 9) THEN BEGIN 
STRCOTA_INT »TA )3 
TA 3:= "OO" + TA} 
END 
ELSE 
STROTA_INT,TA) END; 


PROCEDURE BUILD_RULES23 


VAR 
J: INTEGER; 


Sf 


BEGIN 
ASSIGN( FILEVAR, 'YRULES.TXT' )5 
RESET ( FILEVAR )}3 
FOR J := 1 TO MAX_INLD_RULE DO 
WITH INLD_RULES[J] DO BEGIN 
READLN( FILEVAR »RULE_FIG }35 
READLN( FILEVAR ,CONL ) 
END; 
CLOSE( FILEVAR) END$ 


PROCEDURE BUILD_RULES} 


VAR 
J: INTEGER} 


BEGIN 
ASSIGN( FILEVAR,> 'XRULES.TXT "3 
RESET( FILEVAR )5 
FOR J := 1 TO MAX_INTL_RULE DO 
WITH INTL_RULES{JU] DO BEGIN 
READLN( FILEVAR ,RULE_FIG)3 
READLN( FILEVAR ,CONL } 
END; 
CLOSE( FILEVAR) END} 


PROCEDURE NIGHT_ASPECT (VAR FINI :BOOLEAN$BEARING: INTEGER$TA:SHRT_STR )3 


TYPE ; 
STRG = STRING[9]3 VAR 
NOT_MATCH : BOOLEAN $ 
LGT_QUAD:STRG$ 


BEGIN : 
NOT_MATCH := FALSE$ 
CASE LTGCODE OF 
16:BEGIN 
IF (BEARING = 0) THEN BEGIN 
FINI := TRUE$ 
FACT_FIG := FACT_FIG + ‘f'3 
MAX_FAX := MAX_FAX + 13 
END 
ELSE BEGIN 
LGT_QUAD := ‘000. '3 
NOT_MATCH := TRUES$ 
END 
END $s 
17:BEGIN 
IF(BEARING>=2¢8) AND (BEARING<=359) THEN BEGIN 
FINI := TRUE$ 
FACT_FIG := FACT_FIG + ‘e's 
MAX_FAX := MAX_FAX + 13 


END 
ELSE BEGIN 
LGT_QUAD := ‘PORT FWD.'$ 
NOT_MATCH := TRUE}$ 
END 
END 3 
18:BEGIN 


IF (BEARING>=1) AND (BEARING<=112) THEN BEGIN 
FINI := TRUE$ 
FACT_FIG := FACT_FIG + ‘c'$ 
MAX_FAX := MAX_FAX +13 
END 
ELSE BEGIN 


LGT_QUAD := ‘STBD FWD. 's 
NOT_MATCH := TRUE} 
END 
END$ 
19:BEGIN 
IF (BEARING>=113) AND (BEARING<=24¢7) THEN BEGIN 
FINI := TRUE} 
FACT_FIG := FACT_FIG + ‘d'3 
MAX_FAX := MAX_FAX +13 
END 
ELSE BEGIN 
LGT_QUAD := ‘AFT.'}3 
NOT_MATCH := TRUE 
END; 
END 
END+s 
IF NOT_MATCH THEN BEGIN 
WRITELN3$ 
WRITELN( 'PROGRAM-COMPUTED TARGET ANGLE DOES NOT MATCH THE ASPECT' )3 
WRITELN( 'DETERMINED BY LIGHT CONFIGURATION. PROGRAM-COMPUTED TARGET ' )}3 
WRITELN( 'ANGLE IS ',TA,'. TARGET ANGLE INDICATED BY LIGHTING IS')3 
*ARITELN(LGT_QUAD,' RE-CHECK MANEUVERING BOARD SOLUTION AND' )}3 
WRITELN( "RUNNING LIGHT CONFIGURATION. ' )3 
WRITELN} 
END END; 


PROCEDURE CHECK (INPUT_ARRAY:SELECT_ARRAY 3H: INTEGER3$VAR OKAY:BOOLEAN )35 


VAR 
D,E,P,Q@: INTEGER} 
TIME_OK »DUPED »SAME_GROUP1 » SAME_GROUP 2 »SAME_GROUP3 : BOOLEAN} 


BEGIN 
TIME_OK := FALSE} 
DUPED := FALSE$ : 


SAME_GROUP1 := FALSE$ 
SAME_GROUP2 := FALSE$ 
SAME_GROUP3 := FALSE}$ 


FOR D := 1 TO H-1 DO 
IF (INPUT_ARRAY[D] = 1) OR (INPUT_ARRAY[D] = 2) THEN 
TIME_OK := TRUE} 
IF NOT TIME_OK THEN BEGIN 
OKAY:= FALSE; 
WRITELN( 'NO TIME PERIOD WAS ENTERED. A TIME PERIOD MUST BE ENTERED‘ )3 
WRITELN( ‘BEFORE A SITUATION CAN BE ANALYZED. ')3 
WRITELN( "RE-ENTER SELECTION NUMBERS. '')3 
WRITELN( 'TO CONTINUE, PRESS ANY KEY. '‘')3 
WHILE NOT KEYPRESSED DO 
DELAY(1)3 
WRITELN$WRITELN 
END} 
FOR D := 1 TO H-2 DO 
FOR E := D+tl TO H-1 DO 
IF (INPUT_ARRAY[D] = INPUT_ARRAY[E]) THEN BEGIN 
OKAY := FALSE; 
P := Ds 
DUPED := TRUE 
ENDs 
IF DUPED THEN BEGIN 
WRITELN( 'SELECTION ',INPUT_ARRAY[{P],' IS DUPLICATED. ')3 
WRITELN( "RE-ENTER SELECTION NUMBERS. ')3 
WRITELN( 'TO CONTINUE, PRESS ANY KEY.')3 
WHILE NOT KEYPRESSED DO 
DELAY(1)3 
WRITELN;WRITELN 
END; 
FOR D := 1 TO H-2 DO 
FOR E := D+tl TO H-1 DO 
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IF (CINPUT_ARRAY(D] IN {£12,13,14,15]) AND (INPUT_ARRAYL[E] IN 
{12,13,1¢,15]}) THEN BEGIN 
OKAY := FALSE3 


P := D3 

Q := E3 

SAME_GROUP1 := TRUE 
END} 


IF SAME_GROUP1 THEN BEGIN 
WRITELN( ‘SELECTIONS ',INPUT_ARRAY[P],' AND ',INPUT_ARRAY[Q],' CAN NOT')3 
WRITELN('BE SELECTED TOGETHER BECAUSE TWO DIFFERENT DAYSHAPES WILL NOT '})3 
WRITELN( 'BE SEEN ON THE SAME SHIP. RE-ENTER SELECTION NUMBERS. ' )3 
WRITELN( 'TO CONTINUE, PRESS ANY KEY. ' }3 
WHILE NOT KEYPRESSED DO 
DELAY(1)3 
WRITELN$WRITELN 
END} 
FOR D := 1 TO H-2 DO 
FOR E := D+l TO H-1 DO 
IF (CINPUT_ARRAY(D] IN (6,7,8,9,10,11]) AND (INPUT_ARRAYIE] IN 
[6>7,8»9,10,11]))} THEN BEGIN 
OKAY := FALSE} 


P := D3 

Q := E3 

SAME_GROUP2 := TRUE 
END} 


IF SAME_GROUP2 THEN BEGIN 
WRITELN( ‘SELECTIONS ',INPUT_ARRAY(P1,' AND ',INPUT_ARRAY[Q],' CAN NOT' )3 
WRITELN( 'BE SELECTED TOGETHER BECAUSE TWO DIFFERENT SPECIAL LIGHTING' }3 
WRITELN( 'PATTERNS WILL NOT BE SEEN ON THE SAME SHIP. RE-ENTER SELECTION’ )3 
WRITELN( 'NUMBERS. ' )35 
WRITELN( 'TO CONTINUE, PRESS ANY KEY. ' )3 
WHILE NOT KEYPRESSED DO : 
DELAY(1)3 
WRITELN3$WRITELN 
END} 
FOR D := 1 TO H-2 DO . . 
FOR E := D+l TO H-1 DO 
IF (CINPUT_ARRAY(D] IN (16,17,18,19]) AND (INPUT_ARRAY[E] IN 
{16,17,18,191)) THEN BEGIN : 
OKAY := FALSE} 
P := D3 
Q := E3 
SAME_GROUP3 := TRUE 
END 3 
IF SAME_GROUP3 THEN BEGIN 
WRITELN( ‘SELECTIONS ',INPUT_ARRAY[P],' AND ',INPUT_ARRAY[Q],' CAN NOT' )3 
WRITELN( ‘BE SELECTED TOGETHER BECAUSE TWO DIFFERENT STANDARD LIGHTING' )3 
WRITELN( 'PATTERNS WILL NOT BE SEEN ON THE SAME SHIP. RE-ENTER SELECTION’ )3 
WRITELN( ‘NUMBERS. ' J3 
WRITELN( ‘TO CONTINUE, PRESS ANY KEY.')3 
WHILE NOT KEYPRESSED DO 
DELAY(1)3 
WRITELN;WRITELN3} 
END END} 


PROCEDURE PRINT_MENU2( VAR LONGCODE: INPUT_STR)3 


VAR 
FIRSTCODE »SNDCODE :RULE_STR3$ 
LEN»G: INTEGER} 


BEGIN 
WRITELN( "ENTER THE CORRESPONDING NUMBER FOR ANY OF THE FOLLOWING‘ J} 
WRITELN( 'CONDITIONS THAT CURRENTLY EXIST. NUMBERS SHOULD BE SEPARATED')3 
WRITELN( "BY A COMMA. EXAMPLE: 2,6 . A SECOND MENU WILL DISPLAY ADDITIONAL* J} 
WRITELN( ‘CONDITIONS WHEN THE ENTER KEY IS PRESSED. ')3 
WRITELN(®' 1. TIME PERIOD IS AFTER SUNRISE AND BEFORE SUNSET. ' )3 
WRITELN(' 2. TIME PERIOD IS AFTER SUNSET AND BEFORE SUNRISE. ' )3 
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WRITELN(' 3. REOUCED VISIBILITY:FOG SIGNAL HEARD FWD OF BEAM. ')$3 
WRITELN(' @. CONTACT IS A SAILING VESSEL UNDER SAIL.')3 
WRITELN( ‘ONE OF THE FOLLOWING MEETING SITUATIONS EXISTS: ' )3 
WRITELN(' 5. CONTACT CROSSING FROM PORT TO STBD.'})3 
WRITELN(' 6. CONTACT CROSSING FROM STBD TO PORT. ')3 
WRITELN(* 7. MEETING CONTACT HEAD TO HEAD. ' )3 
WRITELN(' 8. OVERTAKING CONTACT. 9. BEING OVERTAKEN BY CONTACT. ')3 
WRITELN( ‘ONE OF THE FOLLOWING STANDARD LIGHTING PATTERNS IS OBSERVED: ' )5 
WRITELN(* 10. PORT AND STBD RUNNING ,MASTHEAD,RANGE. ' )3 
WRITELN(' 11. PORT RUNNING,MASTHEAD,RANGE. ° )3 
WRITELN(' 12. STBD RUNNING ,MASTHEAD ,RANGE. ' )3 
WRITELN(' 13. STERN. ' );WRITELN}3 
READLN( FIRSTCODE )3 
WRITELN( FIRSTCODE )35 
LEN := LENGTH( FIRSTCODE )3 
FOR G := 1 TO LEN DO 

WHILE (FIRSTCODE({G] = ‘ ') AND (LENGTH(FIRSTCODE) >= 1) DO 

DELETE( FIRSTCODE >G,1)3 

LEN := LENGTH( FIRSTCODE )3 
IF (FIRSTCODEC{LEN] <> ',') THEN 

FIRSTCODE := FIRSTCODE + ','}3 
CLRSCR} 
WRITELN( ‘CONTINUE NUMBER SELECTION WITH THE CONDITIONS BELOW. ONLY ONE' )3 
WRITELN( ‘SELECTION WILL NORMALLY BE MADE FROM THIS MENU, SO NO COMMAS’ )3 
WRITELN( ‘SHOULD BE NEEDED. EXAMPLE: 17 ° J$WRITELN3 
WRITELN( ‘ONE OF THE FOLLOWING DAYSHAPES IS OBSERVED: ')3 
WRITELN(* 1¢. BASKET. 19. ONE BLACK BALL.‘ J} 


WRITELN(' 15. TWO ORANGE & WHITE VERTICALLY STRIPED BALLS. ' )3 
WRITELN(' 16. DIAMOND,TOP HALF BLACK & WHITE STRIPED,LOWER HALF SOLID RED. '‘)3 
WRITELN(' 17. BLACK & WHITE STRIPED BALL OVER SOLID RED BALL.')3 


WRITELN(* 18. TWO BLACK BALLS. ' )3 


WRITELN( ‘ONE OF THE FOLLOWING SPECIAL LIGHTING PATTERNS: ' )3 
WRITELN(' 20. RED OVER WHITE. 26. RED OVER RED. ° )$3 
WRITELN(* 21. WHITE OVER RED ©VER RED OVER WHITE. ')3 
WRITELN(' 22. WHITE OVER RED OVER RED. ' )3 


WRITELN(‘ 23. WHITE OVER RED OVER RED OVER RED OVER RED. ')3 
WRITELN(' 24. RED OVER RED OVER RED. ')3 
WRITELN(' 25. ONE WHITE FWD AND ONE WHITE AFT.')3 
READLN( SNDCODE }3 
WRITELN( SNDCODE )3 
LONGCODE := FIRSTCODE + SNDCODE} 
LEN := LENGTH( LONGCODE )3 
FOR G := 1 TO LEN DO 
WHILE (LONGCODE{G] = ‘' ') AND (LENGTH(LONGCODE) >= 1) DO 
DELETE( LONGCODE »G51)3 
LEN := LENGTH( LONGCODE )3 
IF (LONGCODE[LEN] = ',') THEN 
DELETE( LONGCODE,LEN>1)3 
WRITELN('THE COMPLETE SELECTION FOR THIS INLAND SITUATION IS ',LONGCODE )3 END} 


PROCEDURE PRINT_MENU} 


BEGIN 
WRITELN( ‘ENTER THE CORRESPONDING NUMBER FOR ANY OF THE FOLLOWING’ )3 
WRITELN( 'CONDITIONS THAT CURRENTLY EXIST.NUMBERS SHOULD BE SEPARATED' )3 
WRITELN( "BY A COMMA. ' )3 
WRITELN( "EXAMPLE: 256,16 ' )3 
WRITELN(* 1. TIME PERIOD IS AFTER SUNRISE AND BEFORE SUNSET. ' )3 
WRITELN(' 2. TIME PERIOD IS AFTER SUNSET AND BEFORE SUNRISE. ')3 
WRITELN(' 3. REDUCED VISIBILITY:RADAR CONTACT. ' )3 
WRITELN(* 4. REDUCED VISIBILITY:SOUND SIGNAL HEARD FWD OF BEAM. ')3 
WRITELN(* 5. OWN SHIP CURRENTLY HAS SPECIAL STATUS.')$ 
WRITELN( 'ONE OF THE FOLLOWING SPECIAL LIGHTING PATTERNS IS OBSERVED.‘ )3 
WRITELN(® 6. RED OVER GREEN. 9. RED OVER WHITE.' )3 
WRITELN(' 7. RED OVER RED. 10. GREEN OVER WHITE. ' )3 
WRITELN(' 8. RED OVER WHITE OVER RED. 11. RED OVER RED OVER RED.')$ 
WRITELN( ‘ONE OF THE FOLLOWING DAYSHAPES IS OBSERVED.' )3 
WRITELN(' 12. TWO BLACK BALLS. 1¢. DOUBLE CONES. ')3 
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WRITELN( ° 


13. BALL DIAMOND BALL. 
WRITELN( ‘ONE OF THE FOLLOWING STANDARD LIGHTING PATTERNS IS OBSERVED. ' )3 
WRITELN(' 16. PORT AND STBD RUNNING ,»MASTHEAD ,RANGE. ' )3 

WRITELN(' 17. PORT RUNNING ,MASTHEAD,RANGE. ')3 

WRITELN(' 18. STBD RUNNING,MASTHEAD, RANGE. ' )3 


WRITELN(' 19. STERN.') END$ 


PROCEDURE MAP_INLAND 


(CODE: INTEGER$3VAR SHORT_RULE: RULE_STR)$ 


BEGIN 
CASE CODE OF 
1:BEGIN 
MID_RULE := MID_RULE + ‘'d'3 
MID_SIZE := MID_SIZE + 13 
TIME := 13 
TIME] := 13 
FACT_FIG := FACT_FIG + ‘a's 
MAX_FAX := MAX_FAX + 1 
END; 
2:BEGIN 
MID_RULE := MID_RULE + ° ‘$3 
MID_SIZE := MID_SIZE + 13 
TIME := 23 
TIME2Z := 23 
FACT_FIG := FACT_FIG + ‘b'; 
MAX_FAX := MAX_FAX + 1 
END3 
3:BEGIN 
FOG2 := CODE; 
FOG_SIG_CONTACT := TRUE; 
FACT_FIG := FACT_FIG + 'x'3 
MAX_FAX 2= MAX_FAX + 13 
MID_RULE := MID_RULE + ‘s'} 
MID_SIZE := MID_SIZE + 1 
END; 
4:BEGIN 
MID_RULE := MID_RULE + ‘A'$ 
MID_SIZE := MID_SIZE + 13 
FACT_FIG := FACT_FIG + ‘A'} 
MAX_FAX := MAX_FAX + 1 
END 3 
5:BEGIN 
FACT_FIG := FACT_FIG + 'B'3 
MAX_FAX := MAX_FAX + 1 
END 3 
6:BEGIN 
FACT_FIG := FACT_FIG + 'C'$ 
MAX_FAX := MAX_FAX + 1 
END $3 
7:BEGIN 
FACT_FIG := FACT_FIG + 'D'3 
MAX_FAX := MAX_FAX + 1 
END; 
8:BEGIN 
FACT_FIG := FACT_FIG + '‘'E'3 
MAX_FAX := MAX_FAX + 1 
END; 
9:BEGIN 
FACT_FIG := FACT_FIG + 'F'3 
MAX_FAX := MAX_FAX + 1 
END; 
10:BEGIN 
FACT_FIG := FACT_FIG + 'G'3 
MAX_FAX := MAX_FAX + 1 
END; 
11:BEGIN 
FACT_FIG := FACT_FIG + ‘'H'3 


15. CYLINDER. ° )$ 


M2: 


13: 


14: 


15: 


iG: 


17: 


18: 


19: 


20 


21 


22 


25 


24: 


25: 


MAX_FAX := MAX_FAX + 


END; 
BEGIN 
FACT_FIG := FACT_FIG 
MAX_FAX := MAX_FAX + 
END; 
BEGIN 
FACT_FIG := FACT_FIG 
MAX_FAX := MAX_FAX + 
END$5 
BEGIN 
SHORT_RULE := 'K's 
FACT_FIG := FACT_FIG 
MAX_FAX := MAX_FAX + 
END} 
BEGIN 
SHORT_RULE := ‘L's 
FACT_FIG := FACT_FIG 
MAX_FAX := MAX_FAX + 
END; 
BEGIN 
SHORT_RULE := ‘M's 
FACT_FIG := FACT_FIG 
MAX_FAX := MAX_FAX + 
ENDs 
BEGIN 
SHORT_RULE := 'N'$ 
FACT_FIG := FACT_FIG 
MAX_FAX := MAX_FAX + 
ENDs 
BEGIN 
SHORT_RULE := ‘O's 
FACT_FIG := FACT_FIG 
MAX_FAX := MAX_FAX + 
END; 
BEGIN 
SHORT_RULE := 'P‘5 
FACT_FIG := FACT_FIG 
MAX_FAX := MAX_FAX + 
ENDs 
:BEGIN 
SHORT_RULE := ‘Q's 
FACT_FIG := FACT_FIG 
MAX_FAX := MAX_FAX + 
END; 
:;BEGIN 
SHORT_RULE := 'R'5 
FACT_FIG := FACT_FIG 
MAX_FAX := MAX_FAX + 
END; 
:BEGIN 
SHORT_RULE := ‘S's 
FACT_FIG := FACT_FIG 
MAX_FAX := MAX_FAX + 
END; 
:BEGIN 
SHORT_RULE := ‘T's 
FACT_FIG := FACT_FIG 
MAX_FAX := MAX_FAX + 
END; 
BEGIN 
SHORT_RULE := ‘U's 
FACT_FIG := FACT_FIG 
MAX_FAX := MAX_FAX + 
END; 
BEGIN 
SHORT_RULE := ‘V's 


FACT_FIG := FACT_FIG 
MAX_FAX := MAX_FAX + 


sa) Cae 


gee fae | 


is 


‘Mm! $ 


"Oo" 5 


eae | 


y's 
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END} 
26:BEGIN 
SHORT_RULE := ‘W'3 
FACT_FIG := FACT_FIG + ‘W's 
MAX_FAX := MAX_FAX + 1 
END} 
END; 
IF CODE IN [10,11,12,13] THEN BEGIN 
RUN_LTS := CODE$ 
MID_RULE := MID_RULE + ‘!'s 
MID_SIZE := MID_SIZE + 13 
END 
ELSE IF CODE IN [14,15,16,17,18,19] THEN BEGIN 
DSHAPE := CODEs 
MID_RULE := MID_LRULE + ‘&*$ 
MID_SIZE := MID_SIZE + 13 
WRITELN( ‘INTERPRETATION OF DAYSHAPE IS: '}5 
END 
ELSE IF CODE IN [20,21,22,23,24¢,25,26] THEN BEGIN 
SPEC_LTS := CODEs 
MID_LRULE := MID_RULE + '?'$ 
MID_SIZE := MID_SIZE + 13 
WRITELN( "INTERPRETATION OF SPECIAL LIGHTS IS:' }3 
END END; 


PROCEDURE DISPL_RULE( RULE: RULE_STRSRULE_LEN: INTEGER SSETTING: CODE_INT )5 


VAR 
I: INTEGERS 


BEGIN 
FOR I := 1 TO RULE_LEN DO 
CASE RULE{I] OF 
‘a’ :WRITELN(' TIME DAY.‘ )5 
‘b' sWRITELN('' TIME NIGHT. ' )3 
‘c' :WRITELN(' TARGET ANGLE IS STBD FWD.‘ )3 
‘d' :WRITELN(' TARGET ANGLE IS AFT.')3 
‘e' :WRITELN(' TARGET ANGLE IS PORT FWD. '‘ )3 
'f":WRITELN( ' TARGET ANGLE IS 000.‘ )5 
‘g':WRITELN(‘' RELATIVE BRG IS STBD FWD.‘ }3 
‘h' sWRITELN(' RELATIVE BRG IS AFT.' )3 
‘i':WRITELN(' RELATIVE BRG IS PORT FWD. ' )35 
°j'sWRITELN(' RELATIVE BRG IS 000.')3 
°1':BEGIN 
WRITELN( ' WHEN LIGHTING PATTERN IS RED OVER GREEN; '° )3 
WRITELN( ' CONTACT IS A SAILING VESSEL. ') 
END; 
‘m' :BEGIN 
IF (TIME = 1) THEN 
WRITELN('' WHEN DAYSHAPE IS TWO BLACK BALLS,‘ ) 
ELSE 
WRITELN( ' WHEN LIGHTING PATTERN IS RED OVER RED,‘ )5 
WRITELN(' VESSEL IS NOT UNDER COMMAND. ' ) 
END} 
‘n';:BEGIN 
IF (TIME = 1) THEN 
WRITELN(' WHEN DAYSHAPE IS BALL DIAMOND BALL,‘ ) 
ELSE 
WRITELN( ' WHEN LIGHTING PATTERN IS RED OVER WHITE OVER RED,' J3 
WRITELN(' VESSEL IS RESTRICTED IN ITS'' ABILITY TO MANEUVER. ') 
END; 
‘o': BEGIN 
WRITELN('' WHEN LIGHTING PATTERN IS RED OVER WHITE,' )3 
WRITELN('' VESSEL IS ENGAGED IN FISHING. ' ) 
END} 
‘p':BEGIN 
WRITELN(' WHEN LIGHTING IS GREEN OVER WHITE,' )3 
WRITELN(' VESSEL IS ENGAGED IN TRAWLING. ° ) 
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END}; 
‘q' :;BEGIN 
IF (TIME = 1) THEN 
WRITELN( ' WHEN DAYSHAPE IS CYLINDER,' ) 
ELSE 
WRITELN( ' WHEN LIGHTING PATTERN IS RED OVER RED OVER RED,>')3 
WRITELN(* VESSEL IS CONSTRAINED BY ITS'' DRAFT.') 
END} 
‘r’:BEGIN 
WRITELN(' WHEN DAYSHAPE IS DOUBLE CONES,' )3 
WRITELN(' VESSEL IS ENGAGED IN FISHING OR TRAWLING. ° ) 
END 3 
‘u'sWRITELN('' REDUCED VISIBILITY:RADAR CONTACT. ' )3 
‘v':WRITELN('' OWN SHIP HAS SPECIAL STATUS. ' )3 
‘z' :WRITELN( ' CONTACT HAS SPECIAL STATUS. ')3 
'%' sWRITELN(' REDUCED VISIBILITY: FOG SIGNAL FWO OF BEAM. ' )3 
‘A'sWRITELN(' CONTACT IS A SAILING VESSEL UNDER SAIL.')3 
‘B' ;sWRITELN( ' CONTACT IS CROSSING FROM PORT TO STBD.' )3 
'C':WRITELN( ' CONTACT IS CROSSING FROM STBD TO PORT.')3 
'D’ :WRITELN( ' MEETING CONTACT HEAD TO HEAD.');3 
"E*’ sWRITELN(' OVERTAKING THE CONTACT. ')3 
"F':;WRITELN(' BEING OVERTAKEN BY THE CONTACT. ')3 
‘G':BEGIN 
WRITELN( * YOU OBSERVE A STANDARD LIGHTING PATTERN OF: ' )3 
WRITELN( ' PORT AND STBD RUNNING ,MASTHEAD,RANGE. ° ) 
END; : 
"H' sBEGIN 
WRITELN(' YOU OBSERVE A STANDARD LIGHTING PATTERN OF: ' )3 
WRITELN( ' PORT RUNNING ,MASTHEAD »RANGE. ' ) 
END; 
"I':BEGIN 
WRITELN(' YOU OBSERVE A STANDARD LIGHTING PATTERN OF: '‘ )3 
WRITELN(' STBO RUNNING »MASTHEAD,RANGE. ' ) 
END; 
‘J':BEGIN 
WRITELN(' YOU OBSERVE A STANDARD LIGHTING PATTERN OF: '‘ )3 
WRITELN(' STERN.') 
END} 
'K' :BEGIN 
IF (SETTING = 2) THEN 
WRITELN(' WHEN DAYSHAPE IS A BASKET, ')3 
WRITELN(' THE VESSEL IS ENGAGED IN FISHING.‘ ) 
END 3 
‘L' :BEGIN 
IF (SETTING = 2) THEN BEGIN 
WRITELN( * WHEN DAYSHAPE IS TWO ORANGE & WHITE ‘')3 
WRITELN( * VERTICALLY STRIPED BALLS. ') 
END 3 
WRITELN(' THE VESSEL IS ENGAGED IN SERVICING NAVIGATION AIDS. ') 
END} 
'M' ;BEGIN 
IF (SETTING = 2) THEN BEGIN 
WRITELN(' WHEN DAYSHAPE IS A DIAMOND, TOP HALF BLACK & WHITE' )3 
WRITELN(' STRIPED, LOWER HALF SOLID RED, ') 
END} 
WRITELN(' THE VESSEL HAS A SUBMERGED TOW.') 
END; 
'N': BEGIN 
IF (SETTING = 2) THEN BEGIN 
WRITELN( ' WHEN DAYSHAPE IS A BLACK & WHITE STRIPED ')3 
WRITELN(' BALL OVER A SOLID RED BALL, ') 
END} 
WRITELN( ' THE VESSEL IS ENGAGED IN LAYING CABLE. ') 
END} 
‘O' :BEGIN 
IF (SETTING = 2) THEN 
WRITELN(' WHEN DAYSHAPE IS TWO BLACK BALLS, ')3 
WRITELN(' THE VESSEL IS ENGAGED IN DREDGING. ') 
END 3 
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‘P': BEGIN 
IF (SETTING = 2) THEN 
WRITELN(' WHEN DAYSHAPE IS ONE BLACK BALL, ‘)3 
WRITELN(* THE VESSEL IS ANCHORED. ') 
END $ 
‘Q': BEGIN 
IF (SETTING = 2) THEN 
WRITELN( ° WHEN LIGHTING PATTERN IS RED OVER WHITE, '‘)35 
WRITELN(' THE VESSEL IS ENGAGED IN FISHING. ‘) 
END} 
"R':BEGIN 
IF (SETTING = 2) THEN BEGIN 
WRITELN( ' WHEN LIGHTING PATTERN IS WHITE OVER RED ‘)3 
WRITELN(* OVER RED OVER WHITE, ') 
END 5 
WRITELN(' THE VESSEL HAS A SUBMERGED TON. ') 
END $ 
*‘S': BEGIN 
IF (SETTING = 2) THEN 
WRITELN(' WHEN LIGHTING PATTERN IS WHITE OVER RED OVER RED» '‘')3 
WRITELN(' THE VESSEL IS ENGAGED IN DREDGING. ') 
END $ 
‘T': BEGIN 
IF (SETTING = 2) THEN BEGIN 
WRITELN( ° WHEN LIGHTING PATTERN IS WHITE OVER RED ‘)3 
WRITELN(' OVER RED OVER RED OVER RED, ‘) 
END 5 
WRITELN(' THE VESSEL IS ENGAGED IN DREDGING. ') 
END $ 
‘U': BEGIN 
IF (SETTING = 2) THEN 
WRITELN( * WHEN LIGHTING PATTERN IS RED OVER RED OVER RED,» ')$ 
WRITELN(' THE VESSEL IS ENGAGED IN LAYING CABLE.‘ ) 
END $ ; 
‘V' ;BEGIN 
IF (SETTING = 2) THEN BEGIN 
WRITELN( ' WHEN LIGHTING PATTERN IS ONE WHITE LIGHT FWD ‘ )3 
WRITELN( ' AND ONE WHITE LIGHT AFT, '‘) 
ENDs 
WRITELN(' THE VESSEL IS ANCHORED. ') 
END; 
‘'N' ; BEGIN 


c 


IF (SETTING = 2) THEN 
WRITELN( ' WHEN LIGHTING PATTERN IS RED OVER RED», ')3 
WRITELN(' THE VESSEL IS ENGAGED IN SERVICING NAVIGATION AIDS. ') 
ENDs 
END END$ 


PROCEDURE CHECK2 ( INPUT_ARRAY : SELECT_ARRAY 3H: INTEGER$VAR OKAY: BOOLEAN )3 


VAR 
D,E,P,Q: INTEGERS 
TIME_OK » DUPED »SAME_GROUP1 ,SAME_GROUP 2 ,SAME_GROUP3 »,SAME_GROUP4: BOOLEAN 5 


BEGIN 
TIME_OK := FALSE$ 
DUPED := FALSE}$ 


SAME_GROUP1 := FALSE} 
SAME_GROUP2 := FALSE} 
SAME_GROUP3 := FALSE} 
SAME_GROUPG := FALSE} 


FOR D := 1 TO H-1 DO 
IF (INPUT_ARRAY[D] = 1) OR (INPUT_ARRAYID] = 2) THEN 
TIME_OK := TRUE} 
IF NOT TIME_OK THEN BEGIN 
OKAY:= FALSEs$ 
WRITELN( 'NO TIME PERIOD WAS ENTERED. A TIME PERIOD MUST BE ENTERED' }3 
WRITELN( ‘BEFORE A SITUATION CAN BE ANALYZED. ')3 
WRITELN( "RE-ENTER SELECTION NUMBERS. ' )3 
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WRITELN( 'TO CONTINUE, PRESS ANY KEY.')3 
WHILE NOT KEYPRESSED DO 
DELAY(1)3 
WRITELN$WRITELN 
END} 
FOR D := 1 TO H-2 DO 
FOR E := D+l1 TO H-1 DO 
IF (INPUT_ARRAY(D] = INPUT_ARRAY[E]) THEN BEGIN 
OKAY := FALSES 


P := D3 
DUPED := TRUE 
END} 


IF DUPED THEN BEGIN 
WRITELN( 'SELECTION ‘,INPUT_ARRAY[P],' IS DUPLICATED. ' )}3 
WRITELN( ‘RE-ENTER SELECTION NUMBERS. ')3 
WRITELN('TO CONTINUE, PRESS ANY KEY. ' 3 
WHILE NOT KEYPRESSED DO 
DELAY(1)3 
WRITELN SWRITELN 
END; 
FOR D := 1 TO H-2 DO 
FOR E := D+1 TO H-1 DO 
IF ((INPUT_ARRAY(D] IN (5,6,7,8,9]) AND (INPUT_ARRAYI[E] IN 
(5,6,7,8,9])) THEN BEGIN 
OKAY := FALSE} 


P := D3 

Q := E3 

SAME_GROUP1 := TRUE 
END 3 


IF SAME_GROUP1 THEN BEGIN 
WRITELN( "SELECTIONS ',INPUT_ARRAY[P],' AND ',INPUT_ARRAY[Q],‘ CAN NOT' )3 
WRITELN( 'BE SELECTED TOGETHER BECAUSE ONLY ONE MEETING SITUATION CAN ')}3 
WRITELN( ‘OCCUR BETWEEN TWO SHIPS AT ANY ONE TIME. ' 3 . 
WRITELN( 'TO CONTINUE, PRESS ANY KEY. ')}3 
.WHILE NOT KEYPRESSED DO 
DELAY(1)3 A 
WRITELN$WRITELN 
END; 
FOR D := 1 TO H-2 DO 
FOR E := D+l1 TO H-1 DO 
IF (CINPUT_ARRAY[D] IN [10,11,12,13]) AND (INPUT_ARRAYL[E] IN 
{10,11,12,13])) THEN BEGIN 
OKAY := FALSE} 


P := D3 

Q := E}3 

SAME_GROUP2 := TRUE 
END} 


IF SAME_GROUP2 THEN BEGIN 
WRITELN( ‘SELECTIONS ',INPUT_ARRAY(P],' AND ‘,INPUT_ARRAY[Q],' CAN NOT‘ )3 
WRITELN('BE SELECTED TOGETHER BECAUSE TWO DIFFERENT STANDARD LIGHTING' )3 
WRITELN( ‘PATTERNS ARE NOT NORMALLY SEEN ON THE SAME SHIP. ')3 
WRITELN( "RE-ENTER SELECTION NUMBERS. ')3 
WRITELN('TO CONTINUE, PRESS ANY KEY. ')3 
WHILE NOT KEYPRESSED DO 
DELAY(1)3 
WRITELN$WRITELN 
END; 
FOR D := 1 TO H-2 DO 
FOR E := D+1 TO H-1 DO 
IF ((INPUT_ARRAY(D] IN (14,15,16,17,18,19]) AND ( INPUT_ARRAYI[E] IN 
(14,15,16,17,18,19])) THEN BEGIN 
OKAY := FALSE3 


P := D3 

Q := E} 

SAME_GROUP3 := TRUE 
END} 


IF SAME_GROUP3 THEN BEGIN 
WRITELN( "SELECTIONS ‘,INPUT_ARRAY([P],' AND ',INPUT_ARRAY[Q]1,' CAN NOT')3 
WRITELN('BE SELECTED TOGETHER BECAUSE TWO DIFFERENT DAYSHAPES ARE NOT' )3 
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WRITELN( "NORMALLY SEEN ON THE SAME SHIP. RE-ENTER SELECTION NUMBERS. ‘)5 
WRITELN('TO CONTINUE, PRESS ANY KEY. ' )5 
WHILE NOT KEYPRESSED DO 
DELAY(1)3 
WRITELNSWRITELN} 
END; 
FOR D := 1 TO H-2 DO 
FOR E := D+l TO H-1 DO 
IF (CINPUT_ARRAY[D] IN [20,21,22,23,24,25,261]) AND (INPUT_ARRAY[E] IN 
[20,21,22,23,24,25,261])) THEN BEGIN 
OKAY := FALSE$ 


P := D3 

Q := E} 

SAME_GROUPG := TRUE 
END; 


IF SAME_GROUP2 THEN BEGIN 
WRITELN( 'SELECTIONS ',INPUT_ARRAY[P],' AND ‘,INPUT_ARRAY[Q],° CAN NOT' )3 
WRITELN( ‘BE SELECTED TOGETHER BECAUSE TWO DIFFERENT SPECIAL LIGHTING’ )3 
WRITELN( 'PATTERNS ARE NOT NORMALLY SEEN ON THE SAME SHIP. ')} 
WRITELN( "RE-ENTER SELECTION NUMBERS. ° )3 
WRITELN( 'TO CONTINUE, PRESS ANY KEY.‘ )3 
WHILE NOT KEYPRESSED DO 
DELAY(1)3 
WRITELNSWRITELN3 
END END} 


PROCEDURE INFER_ENG( XRULE : RULE_STR $SIZE »,SETTING: INTEGER }3 


VAR 
FOUND: BOOLEAN} 
RULE_BASE_SIZE »H»1I,J»B,COUNT : INTEGER} 


BEGIN 
H := 13 ‘ 
FOUND := FALSE} 
IF (RULE_SET = 1) THEN 
RULE_BASE_SIZE := MAX_INTL_RULE 
ELSE 
RULE_BASE_SIZE := MAX_INLD_RULE}3 
WHILE NOT FOUND AND (H <= RULE_BASE_SIZE) DO BEGIN 
COUNT := 03 ; 
FOR I := 1 TO SIZE DO 
FOR J := 1 TO SIZE DO BEGIN 
IF (RULE_SET = 1) THEN BEGIN 
IF (XRULE[I] = INTL_RULES[H].RULE_FIG(J]) THEN 
COUNT := COUNT + 13 
IF (COUNT=LENGTH( INTL_RULES(H].RULE_FIG)) 
THEN 
BEGIN 
B := H3 
FOUND := TRUE} 
END} 
END 
ELSE BEGIN 
IF (XRULE[I] = INLD_RULES[H].RULE_FIG(J]) THEN 
COUNT := COUNT + 13 
IF (COUNT=LENGTH( INLD_RULES(H].RULE_FIG)} 


THEN 
BEGIN 
B := H3 
FOUND := TRUE} 
END; 
END}; 
ENDs 
H := H + 13 


END ; 
IF FOUND THEN BEGIN 
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CASE SETTING OF 
1:BEGIN 
WRITELN3 
WRITELN( 'CONCLUSION IS:')3 
IF (RULE_SET = 1) THEN 
MAP_CONL( INTL_RULESIB].CONL ) 
ELSE 
MAP_CONL( INLD_RULESI[B1].CONL )3 
WRITELN}3 
WRITELN( "WHEN THE FOLLOWING FACTS ARE TRUE: ' )3 
IF (RULE_SET = 1) THEN . 
DISPL_RULE( INTL_RULES[B].RULE_FIG,SIZE ,SETTING) 
ELSE 
DISPL_RULE( INLD_RULESIB1].RULE_FIG,SIZE,SETTING)3 
WRITELNS} 
WRITELN('TO CONTINUE, PRESS ANY KEY.')3 
WHILE NOT KEYPRESSED DO 
DELAY(1)3 
END; 
2:BEGIN 
WRITELN3 
IF (RULE_SET = 1) THEN BEGIN 
DISPL_RULE(INTL_RULES[B].RULE_FIG,SIZE ,SETTING)$3 
MAP_CONL( INTL_RULES[B 1.CONL)3 
END 
ELSE BEGIN 
DISPL_RULE( INLD_RULES[(B ].RULE_FIG,SIZE ,SETTING)3 
MAP_CONL( INLD_RULESIB1.CONL) 
END; 
WRITELN} 
END$ 
3:IF (RULE_SET = 1) THEN 
' MAP_CONLCINTL_RULESIB1].CONL) 
ELSE 
MAP_CONL(INLD_RULES[B].CONL)3 
END; 
END 
ELSE BEGIN 
WRITELN$WRITELN( 'NO MATCH IN RULE BASE.')3 
WRITELN( 'NO RISK OF COLLISION HAS BEEN DETECTED. ')3 
WRITELN3 
IF (SETTING = 2) OR (SETTING = 3) THEN 
WRITELN( "RE-ENTER SELECTION NUMBERS. ' )3 
CONTINUE := FALSE} 
END END; 


« 


PROCEDURE DAY_ASPECT (VAR TA_DONE : BOOLEAN sBEARING: INTEGER} XCODE:SHORT_INT 3 
TA:SHRT_STR )5 


VAR 
OKAY :BOOLEAN} 
CODE ,VIS_TA_INT: INTEGER} 
VIS_TA:SHRT_STR} 
VIS_QUAD ,MOBD_QUAD: CHAR} 


BEGIN 
REPEAT 

OKAY := TRUE} 

IF XCODE = 1 THEN BEGIN 
WRITELN3 
WRITELNC "ENTER THE VISUAL TARGET ANGLE IN THREE DIGIT FORMAT. ' )3 
END 

ELSE BEGIN 
WRITELN$ 
WRITELN( "ENTER MANEUVERING-BOARD-DETERMINED TARGET ANGLE IN')3 
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WRITELN( "THREE DIGIT FORMAT.') 
END$ 
REAOLN(VIS_TA)$ 
WRITELNSWRITELN(VIS_TA)$ 
IF NOT(VIS_TAL1] IN ['0','1','2','3']) THEN BEGIN 
WRITELN( 'ILLEGAL ENTRY. RE-ENTER TARGET ANGLE.‘ )3 
OKAY := FALSE 
END$ 
IF (VIS_TAL1] = '3') THEN 
IF NOT(VIS_TAL2] IN ['O','1','2','3S','4','5S']) THEN BEGIN 
WRITELN( "ILLEGAL ENTRY. RE-ENTER TARGET ANGLE.‘ )3 
OKAY := FALSES$ 
END 
ELSE 
IF NOT(VIS_TAL2] IN £'O','1','2','3','G4','5','6','7', 
"8','9']) THEN BEGIN 
WRITELN( ‘ILLEGAL ENTRY. RE-ENTER TARGET ANGLE." )3 
OKAY := FALSE 
END$ 
IF NOT(VIS_TAI[3] IN (€'0','1','2','3','4','5','6','7','8B', 
"9']) THEN BEGIN 
WRITELN( 'ILLEGAL ENTRY. RE-ENTER TARGET ANGLE. ' )3 
OKAY := FALSE 
END 5 
UNTIL OKAYs5 
VAL(VIS_TA»VIS_TA_INT ,CODE )}5 
MAP_TA(VIS_QUAD ,»VIS_TA_INT )5 
MAP_TA(MOBD_QUAD »,BEARING ) 5 
IF (VIS_QUAD = MOBD_QUAD) THEN BEGIN 
TA_DONE := TRUE; 
FACT_FIG := FACT_FIG + VIS_QUAD$5 
MAX_FAX := MAX_FAX + 13 
END 
ELSE BEGIN 
IF (XCODE = 1) THEN BEGIN 
WRITELNS5 
WRITELN( 'PROGRAM-COMPUTED TARGET ANGLE DIFFERS FROM VISUAL TARGET ' )5 
WRITELN( ‘ANGLE AND WILL RESULT IN DIFFERENT MEETING SITUATIONS. ' )5 
WRITELN( "PROGRAM-COMPUTED TARGET ANGLE IS ',TA)5 
WRITELN( 'RE-CHECK MANEUVERING BOARD SOLUTION AND VISUAL ASPECT. ')3 
WRITELN$ 
END 
ELSE BEGIN 
WRITELNS5 
WRITELN( 'PROGRAM-COMPUTED TARGET ANGLE DIFFERS FROM MANEUVERING BOARD' )3 
WRITELN( 'SOLUTION. PROGRAM-COMPUTED TARGET ANGLE IS ',TA)$ 
WRITELN( 'RE-CHECK SOLUTION. ')3 
WRITELN 
END 5 
END END; 


PROCEDURE TGT_ANGLE5 


VAR 
TARGET_ANGLE_INT ,CODE : INTEGER} 
OKAY » TA_DONE : BOOLEAN $s 
TARGET_ANGLE ,CONTACT_HDG: SHRT_STR}$ 
XCODE : SHORT_INT 5 


BEGIN 
TA_DONE := FALSEs$ 
REPEAT 
REPEAT 
OKAY := TRUE} 
WRITELNS 
WRITELN( ‘ENTER THE MANEUVER-BOARD-SOLUTION CONTACT HEADING IN')+3 
WRITELN( ‘THREE DIGIT FORMAT. ' )5 
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READLN( CONTACT_HDG )3 
WRITELN;WRITELN( CONTACT_HDG );WRITELN} 
IF NOT(CONTACT_HDG[1] IN ['0','1','2','3']) THEN BEGIN 
WRITELN( ‘ILLEGAL ENTRY. RE-ENTER HEADING. ‘ )3 
OKAY := FALSE 
END; 
IF (CONTACT_HDG[1] = '3') THEN 
IF NOT(CONTACT_HDG([2] IN ['0','1','2','3','4','5']) THEN BEGIN 
WRITELN( ‘ILLEGAL ENTRY. RE-ENTER HEADING. ' )5 
OKAY := FALSE; 
END 
ELSE 
IF NOT(CONTACT_HDG[2] IN ['0','1','2','3','4','5','6','7', 
'8','9']) THEN BEGIN 
WRITELN( "ILLEGAL ENTRY. RE-ENTER HEADING. ' )3 
OKAY := FALSE 
END 3 
IF NOT(CONTACT_HDG[3] IN ['0','1','2','3'y'G','5','6'y'7','B'S 
°9']) THEN BEGIN 
WRITELN( ‘ILLEGAL ENTRY. RE-ENTER HEADING. ' )5 
OKAY := FALSE 
END s 
UNTIL OKAY$ 
CALC_TGT_ANG( TARGET _ANGLE ,CONTACT_ TRUE_BRG »CONTACT HDG }5 
‘VAL( TARGET_ANGLE ,» TARGET_ANGLE_INT »CODE )3 
IF (TIME = 1) AND (LOW_VIS = 1) THEN BEGIN 


XCODE := 13 
DAY_ASPECT( TA_DONE » TARGET_ANGLE_INT »XCODE » TARGET_ANGLE )5 
END 


ELSE IF (TIME = 2) AND (LOW_VIS = 1) THEN 
NIGHT_ASPECT( TA_DONE » TARGET_ANGLE eco ANGLE } 
ELSE IF LOW_VIS = 2 THEN BEGIN 


XCODE := 23 
DAY_ASPECT( TA_DONE » TARGET_ANGLE_INT »XCODE , TARGET_ANGLE ) : 
END} 


UNTIL TA_DONE ENDs 


PROCEDURE RELATIVE_BRG} 


VAR 
OKAY :BOOLEANS$ 
REL_QUAD:CHAR}$ 
YOUR_HDOG ,REL_BRG:SHRT _STRs 
HTB_INT » YOUR_HDG_INT ,REL_BRG_INT ,CODE: INTEGER} 


BEGIN 
REPEAT 
OKAY := TRUES$ 
WRITELNs | . 
WRITELN( ‘ENTER THE CONTACT''S TRUE BEARING IN THREE DIGIT FORMAT. ' )3 
READLN({ CONTACT_TRUE_BRG }35 
WRITELNSWRITELN( CONTACT_TRUE_BRG )35 
IF NOT(CONTACT_TRUE_B8RG[1] IN ['0','1','2','3']) THEN BEGIN 
WRITELN( 'ILLEGAL ENTRY. RE-ENTER BEARING. ' )5 
OKAY := FALSE 
END; 
IF (CONTACT_TRUE_BRG[1] = '3') THEN 
IF NOT(CONTACT_TRUE_BRG[2] IN ['O0','1','2','3','S','5'1) THEN BEGIN 
WRITELN( 'ILLEGAL ENTRY. RE-ENTER BEARING. ' )3 
OKAY := FALSE$ 
END 
ELSE 
IF NOT(CONTACT_TRUE_BRGI2] IN ['0','1','2','3S','G','5','6', 
‘7','8','9']) THEN BEGIN 
WRITELN( "ILLEGAL ENTRY. RE-ENTER BEARING. ' }3 
OKAY := FALSE 
END; 
IF NOT(CONTACT_TRUE_BRGI3] IN ['0','1','2','3','G','5','6','7', 
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'8','9'}) THEN BEGIN 
WRITELN( "ILLEGAL ENTRY. RE-ENTER BEARING. ')3 
OKAY := FALSE 
END; 
UNTIL OKAY; 
REPEAT 
OKAY := TRUE}$ 
WRITELN3 
WRITELN( ‘ENTER YOUR SHIP''S HEADING IN THREE DIGIT FORMAT. ')3 
READLN( YOUR_HDG )3 
WRITELN$WRITELN( YOUR_HDG) 3 
IF NOT(YOUR_HDG[1] IN [{'0','1','2','3']) THEN BEGIN 
WRITELN( 'ILLEGAL ENTRY. RE-ENTER HEADING. ')3 
OKAY := FALSE 
END 3 
IF (YOUR_HDGI1] = '3') THEN 
IF NOT(YOUR_HDG[2] IN ['0','1','2','3','G','S'J]) THEN BEGIN 
WRITELN( ‘ILLEGAL ENTRY. RE-ENTER HEADING. ')3 
OKAY := FALSE; 
END 
ELSE 
IF NOT(YOUR_HDG[2] IN ['0','1','2','3','G','S','6','7','8B', 
'9'J) THEN BEGIN 
WRITELN( "ILLEGAL ENTRY. RE-ENTER HEADING. ')3 
OKAY := FALSE 
END} 
IF NOT(YOUR_HDG[3] IN ['O','1','2','3'y'G'y'5','6'y'7', 
'8','9']) THEN BEGIN 
WRITELN( 'ILLEGAL ENTRY. RE-ENTER HEADING. ')3 
OKAY := FALSE 
END; 
UNTIL OKAY; : 
VAL( CONTACT_TRUE_BRG »HTB_INT »CODE )3 
VAL( YOUR_HDG » YOUR_HDG_INT ,CODE ) + : 
REL_BRG_INT := HTB_INT - YOUR_HDG_INT$ 
IF (REL_BRG_INT < 0) THEN 
REL_BRG_INT := REL_BRG_INT + 3603 
MAP_RB(REL_QUAD ,REL_BRG_INT)3 
FACT_FIG := FACT_FIG + REL_QUAD} 
MAX_FAX := MAX_FAX + 1 END; 


PROCEDURE MAP_SPEC_STAT(VAR RULE: RULE_STRSCODE: INTEGER )3 


BEGIN 
CASE CODE OF 
6:RULE := ‘1's; 
12,7:RULE := ‘m'$s 
8,13:RULE := ‘n'3 
9:RULE := ‘o's 
10:RULE := ‘p's; 11,15:RULE := 'q'3 
14:RULE := ‘r' 
END; END; 


PROCEDURE MAP_INTNL (CODE: INTEGER )3 


CONST 
LEN = 13 


VAR 
SHORT_RULE :RULE_STR} 


BEGIN 
CASE CODE OF 
1:BEGIN 
MID_RULE := MID_RULE + ‘a'‘'}; 
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MIDSSIZEM2=9MID_SIZE + 1% 
TIME := 13 
TIME] := 13 
FACT_FIG := FACT_FIG + ‘a's 
MAX_FAX := MAX_FAX +¢ 1 
END; 
2:BEGIN 
MID_RULE := MID_RULE + 'b'} 
MID_SIZE := MID_SIZE + 13 
TIME := 23 
TIME2 := 23 
FACT_FIG := FACT_FIG + 'b'}3 
MAX_FAX := MAX_FAX + 1 
END; 
3:BEGIN 
FOG := 33 
MID_RULE := MID_RULE + ‘u's 
MID_SIZE := MID_SIZE + 13 
FACT_FIG := FACT_FIG + ‘u'} 
MAX_FAX := MAX_FAX + 13 
LOW_VIS := 2 
END3 
4:BEGIN 
FOG2 := 43 
FOG_SIG_CONTACT := TRUE3 
FACT_FIG := FACT_FIG + ‘x's 
MAX_FAX := MAX_FAX + 13 
MID_RULE := MID_RULE + ‘'s'‘3 
MIO_SIZE := MID_SIZE +1 
END $3 
5:BEGIN 
MID_RULE := MIO_RULE + ‘v's 
MID_SIZE := MID_SIZE + 13 
FACT_FIG := FACT_FIG + ‘v's 
MAX_FAX := MAX_FAX + 1 
END} 
657,8,95,10,11,12, 


13,14¢,15:BEGIN 


MAP_SPEC_STAT(SHORT_RULE »CODE )3 
IF CODE IN [12,13,14,15] THEN BEGIN 


DSHAPE := CODE}$ 

MID_RULE := MID_RULE + '‘w'$ 

MID_SIZE := MID_SIZE + 13 

WRITELN( ‘INTERPRETATION OF DAYSHAPE IS:' )5 
END 


ELSE BEGIN 
SPEC_LTS := CODE$ 
MID_RULE := MID_RULE + ‘x's 
MID_SIZE := MID_SIZE + 13 


WRITELN( ‘INTERPRETATION OF SPECIAL LIGHTS IS:') 


END} 
SETTING := 23 
INFER_ENG( SHORT_RULE »LEN,SETTING ) 


END 3 
16,17,18,19:BEGIN 


END END; 


PROCEDURE MENU3 


TYPE 


RUN_LTS := CODE3 
MID_RULE := MID_RULE + ‘t's 
MIO_SIZE := MID_SIZE + 13 
LTGCODE := CODE 

END$ 


NUM_TYPE = SET OF 1..263 


oS, 


VAR 


BEGIN 
SELECT_SET := 
DELIM := ','$ 
REPEAT 


INPUT_ARRAY :SELECT_ARRAY 3 
OKAY : BOOLEAN} 

DELIM: CHAR} 

LEN,CODE ,NUM>R>»G»H,»,I,DELIMPOS: INTEGER; 
LONGCODE: INPUT_STR3 

SHORT_RULE: RULE_STR3} 

TEMP :STRING([3 ]} 

SELECT_SET »,SPEC_SET :NUM_TYPE 3 


[1..26]; 


CLRSCR} 
I :=03 
H :=13 
OKAY := TRUE} 
IF (RULE_SET = 1) THEN BEGIN 
PRINT_MENU} 
READLN( LONGCODE )3 
WRITELN( LONGCODE );WRITELN}$ 
END 
ELSE 
PRINT_MENU2( LONGCODE )3 
LEN := LENGTH( LONGCODE )3 
FOR R := 1 TO LEN DO 
WHILE (LONGCODE[R] = ' ') AND (LENGTH{( LONGCODE) >= 1) DO 
DELETE( LONGCODE »R>1)3 
IF (LENGTH( LONGCODE) = 0) THEN BEGIN 
OKAY := FALSE$ 
WRITELN$WRITELN( 'NO SELECTION WAS MADE. ' )3 : 
END 
ELSE BEGIN 
REPEAT 
IF (LENGTH(LONGCODE) > 2) THEN BEGIN 
DELIMPOS := POS(DELIM,LONGCODE )}3 
IF (DELIMPOS = 0) AND (I > O) THEN BEGIN 
DELETE( LONGCODE ,1,23 )}3 
OKAY := FALSE 
END; 
TEMP := COPY( LONGCODE,1,DELIMPOS-1);3 
DELETE( LONGCODE ,1,DELIMPOS )}3 
END 
ELSE BEGIN 
TEMP := LONGCODE; 
DELETE( LONGCODE »1;2) 
END; 
VAL( TEMP ,»NUM ,CODE )3 
IF (NUM IN SELECT_SET) AND (CODE=0) THEN BEGIN 
INPUT_ARRAYCH] := NUM3 
H := H+1}3 
END 
ELSE 
OKAY := FALSE} 
i 3:= 1 €£.13 
UNTIL (LENGTH{ LONGCODE) = 0) 
END ; 
IF NOT OKAY THEN BEGIN 
WRITELN( "ILLEGAL ENTRY. RE-ENTER SELECTION NUMBERS. ' Js‘\WRITELN3 
WRITELN( 'TO CONTINUE, PRESS ANY KEY.' )3 
WHILE NOT KEYPRESSED DO 
DELAY(1)3 
WRITELN3WRITELN 
END; 
IF OKAY THEN 
IF (RULE_SET = 1) THEN 
CHECK( INPUT_ARRAY >H ,OKAY ) 
ELSE 
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CHECK2( INPUT_ARRAY >H »,OKAY ) 3 
UNTIL OKAY3 
FOR G := 1 TO H-1 DO 
IF (RULE_SET = 1) THEN 
MAP_INTNL( INPUT_ARRAYIG]) 
ELSE BEGIN 
MAP_INLAND( INPUT_ARRAYIG],SHORT_RULE )3 
SPEC_SET := [14..26]3 
IF INPUT_ARRAY[G] IN SPEC_SET THEN BEGIN 
LEN := 13 
SETTING := 23 
DISPL_RULE(SHORT_RULE ,LEN»SETTING ) 
END; 
END END} 


BEGIN MAIN 
GOOD := FALSE$ 
QUIT := FALSE$ 
REPEAT 
CLRSCR}$ 
WRITELN( "WHICH SET OF NAVIGATION RULES ARE CURRENTLY IN EFFECT?' )3 
WRITELN( ‘MAKE A NUMBER SELECTION THEN PRESS THE ENTER KEY.' )3 
WRITELNC ' 1. INTERNATIONAL ' )5 
WRITELN( ' 2. INLAND' )3 
READLN(RULE_SET J5 
WRITELN( RULE_SET )3 
IF (RULE_SET <> 1) AND (RULE_SET <> 2) THEN BEGIN 
WRITELN$ 
WRITELN( ‘ILLEGAL ENTRY. RE-ENTER SELECTION. ' )3 
WRITELN( 'TO CONTINUE, PRESS ANY KEY.‘ J5WRITELNS 
WHILE NOT KEYPRESSED DO ; 


DELAY(1)5 
END 
ELSE 
GOOD := TRUE} 
UNTIL GOODs 
TF (RULE_SET = 1) THEN 
BUILD_RULES 
ELSE 
BUILD_RULES2}3 
REPEAT 


LOW_VIS := 13 
FOG_SIG_CONTACT := FALSE} 
CONTINUE := TRUE} 


MID_RULE := ' ‘$ 
MID_SIZE := 03 
FACT_FIG := ' '$ 
MAX_FAX := 03 
MENU s 


SETTING := 33 
DELETE(MID_RULE>1,1)5 
INFER_ENG(MID_RULE ,»MID_SIZE ,SETTING )5 
IF CONTINUE THEN BEGIN 
IF NOT FOG_SIG_CONTACT AND (RULE_SET = 1) THEN BEGIN 
RELATIVE_BRG} 
TGT_ANGLE 
END} 
DELETE(FACT_FIG,1,1)3 
SETTING := 13 
INFER_ENG( FACT_FIG,MAX_FAX,SETTING 3 
WRITELN('DO YOU WISH TO ANALYZE ANOTHER CONTACT?' )3 
WRITELN('IF SO, ENTER A CAPITAL Y, THEN PRESS THE ENTER KEY.')$ 
WRITELN( ‘OTHERWISE ,ENTER ANY OTHER LETTER»,THEN PRESS THE ENTER KEY. ')5 
READLNI ANS 3 
WRITELN( ANS )3 
IF (ANS <> 'Y') AND (ANS <> ‘y') THEN 
QUIT := TRUE} 
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END 
ELSE BEGIN 
WRITELN( ‘TO CONTINUE, PRESS ANY KEY.‘ )35 
WHILE NOT KEYPRESSED DO 
DELAY(1)3 
END} 
UNTIL QUIT END. 
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APPENDIX B 
SAMPLE USER SESSIONS 


WHICH SET OF NAVIGATION RULES ARE CURRENTLY IN EFFECT? 
ere = NUMBER SELECTION THEN PRESS THE ENTER KEY. 

Ll. INTERNATIONAL 

2. INLAND 


1 
ENTER THE CORRESPONDING NUMBER FOR ANY OF THE FOLLOWING 
CONDITIONS THAT CURRENTLY EXIST.NUMBERS SHOULD BE SEPARATED 
BY A COMMA. 
BAeP ine 2,0 ,16 
i Sie FERTOD IS ARTERV@SUNRISE AND BEFORE’ SUNSET. 
2. Mie ere ROOTS AgEER SUNSET AND BEFORE SUNRISE. 
So. REDUCED VISIBIEITY:RADAR CONTACT. 
4. REDUCED VISIBILITY:SOUND SIGNAL HEARD FWD OF BEAM. 
5. OWN SHIP CURRENTLY HAS SPECIAL STATUS. 
ONE OF THE FOLLOWING SPECIAL LIGHTING PATTERNS IS OBSERVED. 
So. feD OVERSGREE. Oo RED MOVER WHITE. 
i. Be2DVOVERSRED: TOS GREENBOVER WHITE. 
S. RED OVER WHITE OVER RED. ieee eeekeD OVER RED. 
ONE (OF THE FOLLOWING DAYSHAPES IS OBSERVED. 
12. TWO BLACK BALLS. 14. DOUBLE CONES. 
13. BALL DIAMOND BALL. Te) eo IDER 
ONE OF THE FOLLOWING STANDARD LIGHTING PATTERNS IS OBSERVED. 
16. PORT AND STBD RUNNING,MASTHEAD ,RANGE. 
,17. PORT RUNNING,MAS1 HEAD, RANGE. 
18. STBD RUNNING,MASTHEAD, RANGE. 
Pro Lan. 
yy, 13,18 


PSR tRetaltON OF DAYSHAPE IS: 


WHEN DAYSHAPE IS BALL DIAMOND BALL, 
VESonL IS RESTRICTED IN ITS" ABILITY TO MANEUVER. 


SEMANTIC ERROR. 

SHECGCUIUGHS gab 1S ARE NOT COMPATIBLE. 

PIGHES sor slice iyPe ARE NOT NORMALLY SEEN AFTER SUNRISE. 
RE -ENMERe of LECTEON NUMBERS. 

TO CONTINGE, PRESS ANY KEY. 


ENTER THE CORRESPONDING NUMBER FOR ANY.OF THE FOLLOWING 
CONDITIONS THAT CURRENTLY EXIST.NUMBERS SHOULD BE SEPARATED 
BY A COMMA. 
BeatiPLE: 2,6,16 
i URE SEee Ope tS want ER SUNRISE AND BERBORE SUNSET. 
2. [OE eR POp io arlER SUNSET AND BEPORE SUNRISE. 
3. REDUCED VISIBILITY:RADAR CONTACT. 
4. REDUCED VISIBILITY:SOUND SIGNAL HEARD FWD OF BEAM. 
>. Ono le CURRENTLY sHAS SPECIAL STATUS. 
ONE OF THE FOLLOWING SPECIAL LIGHTING PATTERNS IS OBSERVED. 
6. RED OVER GREEN. 9. RED OVER WHITE . 
(. Gob sOVERSRUD . TOG GREENSOVER WHITE. 
6. RED OVER WHLTE, OVER RED. iiaecOeovan REDSOVER RED. 
ONE OF THE FOLLOWING DAYSHAPES IS OBSERVED. 
1Z. TWO BLACK BALLS. 14. DOUBLE CONES. 
13. BALL DIAMOND BALL. ore ecLINDER. 
ONE OF THE FOLLOWING STANDARD LIGHTING PATTERNS IS OBSERVED. 
16. PORT AND STBD RUNNING,MASTHEAD, RANGE. 
17. PORT RUNNING ,MASTHEAD, RANGE. 
18. STBD RUNNING, MASTHEAD, RANGE. 
19. SIERRA: 


oe 


ENTER THE CONTACT'S TRUE BEARING IN THREE DIGIT FORMAT. 
182 

ENTER YOUR SHIP'S HEADING IN THREE DIGIT FORMAT. 

161 


ENTER THE MANEUVER-BOARD-SOLUTION CONTACT HEADING IN 
THREE DIGIT FORMAL. 


070 


ENTER THE VISUAL TARGET ANGLE IN THREE DIGIT FORMAT. 
160 


PROGRAM-COMPUTED TARGET ANGLE DIFFERS FROM VISUAL TARGET 
ANGLE AND WILL RESULT IN DIFFERENT MEETING SITUATIONS. 
PROGRAM-COMPUTED TARGET ANGLE IS 292 

RE-CHECK MANEUVERING BOARD SOLUTION AND VISUAL ASPECT. 


ENTER THE MANEUVER-BOARD-SOLUTION CONTACT HEADING IN 
THREE DIGIT FORMAT. 


070 


ENTER THE VISUAL TARGET ANGLE IN THREE DIGIT FORMAT. 
345 


CONCLUSION IS: 
YOU ARE GIVE-WAY VESSEL. MANEUVER TO AVOID CONTACT. 
TURN STBD IF FOssiBle. 
SOUND ONE SHORT BLAST TO SIGNAL A STBD TURN. 


WHEN THE FOLLOWING FACTS ARE TRUE: 
TARGET ANGLE IS PORT FWD. 


TO CONTINUE, PRESS © any REY. 

DO YOU WISH TO ANALYZE ANOTHER CONTACT? 

IF SO, ENTER A CAPITAL. Y, THEN PRESS (ERE Sees inne 

Cen nee ae ea ANY OTHER LETTER,THEN PRESS THE ENTER KEY. 


ENTER THE CORRESPONDING NUMBER FOR ANY OF THE FOLLOWING 
CONDITIONS THAT CURRENTLY EXIST.NUMBERS SHOULD BE SEPARATED 
BY A COMMA. 
EXAMPLE: 2,6,16 
1. TIME PERIOD IS AFTER SUNRISE AND BEFORE SUNSET. 
2. TIME PERIOD IS AFTER SUNSET AND BEFORE SUNRISE. 
3. REDUCED VISIBILITY:RADAR CONTACT. 
4. REDUCED VISIBILITY:SOUND SIGNAL HEARD FWD OF BEAM. 
5. OWN SHIP CURRENTLY HAS SPECIAL STATUS. 
ONE OF THE FOLLOWING SPECIAL LIGHTING PATTERNS IS OBSERVED. 
6. RED OVER GREEN. Oe heb GCVER While. 
7. RED OVERVREDE 10. GREEN OVER WHITE. 
8. RED OVER WHITE OVER RED. ll. RED OVER RED OVERSEER: 
ONE OF THE FOLLOWING DAYSHAPES IS OBSERVED. 
12. TWO BLACK BALLS. 14. DOUBLE CONES. 
13. BALL DIAMOND BALL. 15. CYLINDERS 
ONE OF THE FOLLOWING STANDARD LIGHTING PATTERNS IS OBSERVED. 
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16. PORT AND STBD RUNNING,MASTHEAD, RANGE. 
17. PORT RUNNING,MASTHEAD , RANGE. 
18. STBD RUNNING ,MASTHEAD, RANGE. 
iy... STERN. 
5,2,154 


ILLEGAL ENTRY. RE-ENTER SELECTION NUMBERS. 
TOT CONTINUE, PRESS ANY KEY. 


ENTER THE CORRESPONDING NUMBER FOR ANY OF THE FOLLOWING 
CONDITIONS THAT CURRENTLY EXIST.NUMBERS SHOULD BE SEPARATED 
BY A COMMA. 

ExerelLe: 2,6,16 

PeeoUeereRtOD 1S AFTER SUNRISE AND BEFORE SUNSET. 
Cee eRLOUL IS AFIEK SUNSET AND BEFORE SUNRISE. 
3. REDUCED VISIBILITY:RADAR CONTACT. 
4. REDUCED VISIBILITY:SOUND SIGNAL HEARD FWD OF BEAM. 
5. OWN SHIP CURRENTLY HAS SPECIAL STATUS. 
ONE OF THE FOLLOWING SPECIAL LIGHTING PATTERNS IS OBSERVED. 
6. RED OVER GREEN. 9. RED OVER WHITE. 
Vee RED OVERSRED. 10. GREEN JOVER WHITE . 
&. RED OVER WHITE OVER RED. lie eREDeeVER hep OVER RED. 

ONE OF THE FOLLOWING DAYSHAPES IS OBSERVED. 

12. TWO BLACK BALLS. 14. DOUBLE CONES. 
13. BALL DIAMOND BALL. poe SeNDeER. 

ONE OF THE FOLLOWING STANDARD LIGHTING PATTERNS IS OBSERVED. 
16. PORT AND STBD RUNNING ,MASTHEAD, RANGE. 
17. PORT RUNNING,MASTHEAD,RANGE. 

18. STBD RUNNING ,MASTHEAD, RANGE. 
ieee olER: 

EC ae 


SELECTION 1 Do, DUPLICATED. 
RE-ENTER SELECTION NUMBERS. 
TO CONTINUE, PRESS ANY KEY. 


ENTER THE CORRESPONDING NUMBER FOR ANY OF THE FOLLOWING 
CONDITIONS THAT CURRENTLY EXIST.NUMBERS SHOULD BE SEPARATED 
BY A COMMA. 

Backes: 2,016 

Te LIME VREeLOD IS AFTER SUNRISE AND BEFORE SUNSET. 
2p5 lis PERTOD IS vaulER SUNSET AND BEFORE SUNRISE. 
3. REDUCED VISIBILITY:RADAR CONTACT. 
4. REDUCED VISIBILITY:SOUND SIGNAL HEARD FWD OF BEAM. 
Se Olnmedt? CURRENTLY HAS SPECIAL STATUS. 
ONE OF SHE SPOREOWING SPECIAL LIGHTING PATTERNS IS OBSERVED. 
6. RED OVER GREEN. 9. RED OVER WHITE. 
%. RED OVER Kier. 10. GREEN OVER WHITE. 
S. REDVOVER Walle OVER RED. Dee De OvbReRED OVER RED. 

ONE OF THE FOLLOWING DAYSHAPES IS OBSERVED. 

12. TWO BLACK BALLS. 14. DOUBLE CONES. 
13. BALL DIAMOND BALL. ore. SLIDER. 

ONE OF THE FOLLOWING STANDARD LIGHTING PATTERNS IS OBSERVED. 
16. PORT AND STBD RUNNING ,MASTHEAD,RANGE. 
17. PORT RUNNING ,MASTHEAD, RANGE. 

18. STBD RUNNING,MASTHEAD, RANGE. 
12. STERN. 
lég2, 12 


TMi sheRherterrTene OF SPECIAL LIGHTS IS: 


WHEN LIGHTING PATTERN IS RED OVER RED OVER RED, 
VESSEL IS CONSTRAINED BY ITS' DRAFT. 


ENTER THE CONTACT'S TRUE BEARING IN THREE DIGIT FORMAT. 
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ops: 
ENTER YOUR SHIP'S HEADING IN THREE DIGIT FORMAT. 
101 


ENTER THE MANEUVER-BOARD-SOLUTION CONTACT HEADING IN 
THREE DIGiTeponink. 


es 


CONCLUSION IS: 
CONTACT HAS SPECIAL STATUS. YOU ARE CIVE-WAY VESSEL. 
MANEUVER TO AVOID CONTACT. TURN STBD IF POSSIBLE. 
SHOW ONE LIGHT FLASH TO SIGNAL A STBD TURN. 


WHEN THE FOLLOWING FACTS ARE TRUE: 
. TARGET ANGLE IS STBD FWD. 
CONTACT HAS SPECIAL STATUS. 


TO CONTINUE, PRESS ANY ekEee 

DO YOU WISH TO ANALYZE ANOTHER CONTACT? 

IF SO, ENTER A CAPITAL Y, THEN PREoS Mane we lil Baye ae 
ae ANY OTHER LEDBER? THENS PRESS “THER ENITER Pee 


WHICH SET OF NAVIGATION RULES ARE CURRENT DVS eiee ere er. 
MAKE A NUMBER SELECTION THEN PRESS THE ENTERe ae. 

1. INTERNATIONAL 

2. INLAND 


? 


ENTER THE CORRESPONDING NUMBER FOR ANY OF THE FOLLOWING 
CONDITIONS THAT CURRENTLY EXIST. NUMBERS SHOULD BE SEPARATED 
BY A COMMA. EXAMPLE: 2,6 . A SECOND MENU WILL DISPLAY ADDITIONAL 
CONDITIONS WHEN THESENTER KEY SUSSPRESsSomE 
1. TIME PER@OD IS AFTER SUNRISE AND BEPORE SUNSEL. 
2. TIME PERIOD IS AFTER SUNSET AND BEFORE SUNRISE. 
3. REDUCED VISIBILITY:FOG SIGNAL HEARD FWD OF BEAM. 
4. CONTACT IS A SAILING VESSEL UNDER SAIL. 
ONE OF THE FOLLOWING MEETING SITUATEONS@e toto. 
5. CONTACT CROSSING FROM PORT TO SiTBR: 
6. CONTACT CROSSING FROM STEDS TOs rera. 
7. MEETING CONTACT HEAD TO HEAD. 
8. OVERTAKING CONTACT. 9. BEING OVERTAKEN BY CONTACT. 
ONE OF THE FOLLOWING STANDARD LIGHTING PATTERNS [IS OBSERVED: 
10. PORT AND STBD RUNNING,MASTHEAD, RANGE. 
11. PORT RUNNING ,MASTHEAD, RANGE. 
12. STBD RUNNING, MASTHEAD, RANGE. 
foes STERN. 


CONTINUE NUMBER SELECTION WITH THE CONDITIONS BELOW. ONLY ONE 
SELECTION WILL NORMALLY BE MADE FROM THIS MENU, SO NO COMMAS 
SHOULD BE NEEDED. EXAMPLE: 17 
ONE OF THE FOLLOWING DAYSHAPFES [1S GCESERVED: 
14. BASKET. 19. ONE BLACK BALL. 
15. TWO ORANGE & WHITE VERTICALLY STRIPED BALLS. 
16. DIAMOND,TOP HALF BLACK & WHITE STRIPED,LOWER HALF SOLID RED. 
17. BLACK & WHITE STRIPED BAER OVER SOCEPD eRe peeoeu. 
18. TWO BEACK BALES. 
ONE OF THE FOLLGWING SPECIAL LIGHTING Pat eRNS=: 
20. RED OVER Sit r.. 26. RED OVERS Rene 
21. WHITE OVER RED OVER RED OVER WHITE. 
22. WHITE OVER RED OVER RED. 


60 





Ze. Wie OVER@RED OVER RED OVER RED OVER RED. 

2, REDBOVER RED OVER RED. 
a: ONE WHITE FWD AND ONE WHITE AFT. 
Tie eecOurEr TE SEEECTION FOR THIS INLAND SITUATION IS 1,5,14 
PRTERPRETAILON OF DAYSHAPE IS: 

WRENS DAYSHAPE [S A BASKET, 

ime veeoel [5 ENGAGED IN FISHINe. 


CONCLUSION IS: 
YOU ARE STAND-ON VESSEL. MAINTAIN COURSE AND SPEED. 


WHEN THE FOLLOWING FACTS ARE TRUE: 
Cop@ACT TS CROSSING FROM PORT TG) STBD. 


TO CONTINUE, PRESS ANY KEY. 

DO YOU WISH TO ANALYZE ANOTHER CONTACT? 

PaO; eelMteh ne Carling. vy, ITHEN PRESS THE ENTER KEY. 

age rae Pio leer nek ere N PRESS THE ENTER KEY. 


ENTER THE CORRESPONDING NUMBER FOR ANY OF THE FOLLOWING 
COMDVITIGNS THAT CURRENTLY EAIST. NUMBERS SHOULD BE SEPARATED 
BY A COMMA. EXAMPLE: 2,6 . A SECOND MENU WILL DISPLAY ADDITIONAL 
COMET TA@ ISennene THE ENTER KEY IS PRESSED. 
Te flee eee IS APTSR SUNRISE AND BEFORE SUNSET. 
Coleen ROD 1S ArIERe SUNSET AND BEFORE SUNRISE: 
3. REDUCED VISIBILITY:FOG SIGNAL HEARD FWD OF BEAM. 
Secell-el ISA .sni LING VESSEL UNDER SAIL: 
OME Cr THES EOCLEOWING MEETING SITUATIONS EAISTS: 
Seecellie@er CROSSING FROM PORT. TO.STBD. 
S. COliisel CROSSING FROM STBD TO PORT. 
7 HeE TING CONTACT HEAD TO HEAD. | 
8. OVERTAKING CONTACT. 9. BEING OVERTAKEN BY CONTACT.” 
ONE OF THE FOLLOWING STANDARD LIGHTING PATTERNS IS OBSERVED: 
10. PORT AND STBD RUNNING,MASTHEAD, RANGE. 
11. PORT RUNNING,MASTHEAD, RANGE. 
12. STBD RUNNING,MASTHEAD, RANGE. 
oe STERN. 
Seige 2 


CONTINUE NUMBER SELECTION WITH THE CONDITIONS BELOW. ONLY ONE 
SELECTION WILL NORMALLY BE MADE FROM THIS MENU, SO NO COMMAS 
SROUED SE NEEDED. EXAMPLE: 17 
ONE OF THE FOLLOWING DAYSHAPES IS OBSERVED: 
ie. BASMEL. 19. ONE BLACK BALL. 
15. TWO ORANGE & WHITE VERTICALLY STRIPED BALLS. 
16. DIAMOND,TOP HALF BLACK & WHITE STRIPED,LOWER HALF SOLID RED. 
i. GUnereoenal le STRIPED BALL OVER SOLID RED BALL. 
18. TWO BLACK BALLS. 
OHNE OF THE FOELOWING SPECIAL LIGHTING PATTERNS: 
20. REDSOVE Ren EEE. Zoe Re DROVER RED. 
21. WHITESGVERORED OVER RED OVER WHITE. 
22. WHITE OVER RED OVER RED. 
Co. Wihleme ve nekeD OVER RED OVER RED) OVER RED. 
2a. REDVOVER RED. OVER IREDE 
25. ONE WHITE FWD AND ONE WHITE AFT. 


THE COUBEETE SEEEGTION FOR THIS@INEAND SITUATION IS 3,2,5,12 
SEMANTIC ERROR. 

SELECTIONS 12 AND 3 ARE NOT COMPATIBLE. 

LIGHTS OF ANY TYPE CAN NOT NORMALLY BE SEEN DURING REDUCED 
VISIBIEITY G@NRSTIONS. 

RE-ENTER SELECTION NUMBERS. 

TO CONEPINGE PRES S=aliy KEY. 


ENTER THE CORRESPONDING NUMBER FOR ANY OF THE FOLLOWING 


61 


CONDITIONS THAT CURRENTLY EXIST. NUMBERS SHOULD BE SEPARATED 
BY A COMMA. EXAMPLE: 2,6 . A SECOND MENU WILL DISPLAY ADDITIONAL 
CONDITIONS WHEN THE ENTER KEY IS PRESSED. 
1. TIME PERIOD IS APTER SUNRISE AND BEVORE slic. 
2. TIME PERIOD IS AFTER SUNSET AND BEFORE SUNRISE. 
3. REDUCED VISIBILITY:FOG SIGNAL HEARD FWD OF BEAM. 
4. CONTACT IS A SAILING VESSEL UNDER SAIL. 
ONE OF THE FOLLOWING MEETING SITUATIONS EXISTS: 
5. CONTACT CROSSING PROM FORT [Oss bee 
6. CONTACT CROSSING FROMSSTED Os Lone. 
7. MEETING CONTACT HEAD TO HEAD. 
8. OVERTAKING CONTACT. 9. BEING OVERTAKEN BY CONTACT. 
ONE OF THE FOLLOWING STANDARD LIGHTING PATTERNS IS OBSERVED: 
10. PORT AND STBD RUNNING,MASTHEAD, RANGE. 
ll. PORT RUNNING ,MASTHEAD, RANGE. 
12. STBD RUNNING,MASTHEAD, RANGE. 
Poe Oo LOR 


c 


CONTINUE NUMBER SELECTION WITH THE CONDITIONS BELOW. ONLY ONE 
SELECTION WILL NORMALLY BE MADE FROM THIS MENU, SO NO COMMAS 
SHOULD BE NEEDED. EXAMPLE: 17 
ONE OF THE FOLLOWING DAYSHAPES IS OBSERVED: 
14. BASKET. 19. ONE BLACK BALL. 
15. TWO ORANGE & WHITE VERTICALLY STRIPED BALLS. 
16. DIAMOND,TOP HALF BLACK & WHITE STRIPED,LOWER HALF SOLID .RED. 
17. BLACK & WHITE STRIPED BALL OVER SOLID RED BALL. 
18. TWO BLACK BALLS. 
ONE OF THE FOLLOWING SPECIAL LIGHTING PATTERNS: 
ZO. REDSOVER hoon. 26. RED OVER RED. 
21. WHITE OVER RED OVER RED OVER WHITE. 
22. WHITE OVER RED OVER RED; 
23. WHITE OVER RED OVER RED OVER RED OVER RED. 
24. RED OVER RED OVER RED. . 
25. ONE WHITE FWD AND ONE WHITE AFT. a 


THE COMPLETE SELECTION FOR THIS INLAND SITUATION IS 2,3 


CONCLUSION IS: 
REDUCE SPEED TO BARE STEERAGE-WAY. PROCEED WITH EXTREME 
CAUTION UNTIL THE DANGER OF COLLISION IS OVER. 


WHEN THE FOLLOWING FACTS ARE TRUE: 
REDUCED VISIBILITY:FOG SIGNAL FWD OF BEAM. 


TO CONTINUE, PRESS ANY KEY. 

DO YOU WISH TO ANALYZE ANOTHER CONTACT? 

IF 50, ENTER A CAPITAL Y, THEN PRESS THE ENTER KEY. 

Ce eS ANY OTHER LETTER,THEN PRESS THE ENTER KEY. 


ENTER THE CORRESPONDING NUMBER FOR ANY OF THE FOLLOWING 
CONDITIONS THAT CURRENTLY EXIST. NUMBERS SHOULD BE SEPARATED 
BY A COMMA. EXAMPLE: 2,6 . A SECOND MENU WILL DISPLAY ADDITIONAL 
CONDITIONS WHEN THE ENTER KEY IS PRESSED. 
1. TIME PERIOD IS AFTER SUNRISE AND BEFORE SUNSET. 
Z. TIME PERIOD IS AFTER SUNSET ANDUBERORRSSUNRISE. 
3. REDUCED VISIBILITY:FOG SIGNAL HEARD FWD OF BEAM. 
4. CONTACT IS A SAILING VESSEL UNDER SAIL. 
ONE OF THE FOLLOWING MEETING SITUATIONS EXISTS: 
5. CONTACT CROSSING FROM FORT. TO@saEDr 
6. CONTACT CROSSING PROM TSTIBDSIO FORT: 
7. MEETING CONTACT HEAD TO HEAD. 
8. OVERTAKING CONTACT. 9. BEING OVERTAKEN BY CONTACT. 
ONE OF THE FOLLOWING STANDARD LIGHTING PATTERNS IS OBSERVED: 
10. PORT AND STBD RUNNING,MASTHEAD, RANGE. 
ll. PORT RUNNING,MASTHEAD, RANGE. 
12. STBD RUNNING,MASTHEAD, RANGE. 


£3. STERN . 


? ? 


CONTINUE NUMBER SELECTION WITH THE CONDITIONS BELOW. ONLY ONE 
SELECTION WILL NORMALLY BE MADE FROM THIS MENU, SO NO COMMAS 
SnOUED BE NEEDED] EXANPLE: 17 
ONE OF THE FOLLOWING DAYSHAPES IS OBSERVED: 
14. BASKET. 19. ONE BLACK BALL. 
15. TWO ORANGE & WHITE VERTICALLY STRIPED BALLS. 
16. DIAMOND,TOP HALF BLACK & WHITE STRIPED,LOWER HALF SOLID RED. 
17. BLACK & WHITE STRIPED BALL OVER SOLID RED BALL. 
18. TWO BLACK BALLS. 
ONE OF THE FOLLOWING SPECIAL LIGHTING PATTERNS: 
20. RED OVER WHITE. Zoe Roo VOR eRe 
21. WHITE OVER RED OVER RED OVER WHITE. 
ZZ. Wniiile OVER RED OVER RED. 
23. WHITE OVER RED OVER RED OVER RED OVER RED. 
24. RED OVER RED OVER RED. 
25. ONE WHITE FWD AND ONE WHITE AFT. 


Gres COMPLETE SELECTION FOR THIS INLAND SITUATION IS 6,2,11,22 
PimeREREDALTION OF SPECIAL LIGHTS IS: 

WHEN LIGHTING PATTERN IS WHITE OVER RED OVER RED, 

Tate yooh ls ENGAGED IN DREDGING. 


CONCLUSION IS: 
WHEN WITHIN ONE MILE OF CONTACT, INDICATE INTENTION TO PASS 
Weim ONE@EONG BLAST. CONTACT WILL DIRECT YOU TO PROPER SIDE 
FOR PASSAGE WITH ONE SHORT BLAST FOR A STBD PASSAGE OR TWO 
SHORT BLASTS FOR A PORT PASSAGE. ANSWER WITH SAME SIGNAL TO 
ACKNOWLEDGE. IF CONTACT SOUNDS DANGER SIGNAL, FOUR OR MORE 
Saebieeunots IN RAPI® SUCCESSION, DO NOT ATTEMPT TO PASS. 
SLOW DOWN OR STOP AND AWAIT FURTHER SIGNAL. 


WHEN THE FOLLOWING FACTS ARE TRUE: 
THE VESSEL IS ENGAGED IN DREDGING. 


Peecene INGE Sr RESS ANY KEY. 

DO YOU WISH TO ANALYZE ANOTHER CONTACT? 

ese ee unk CAPLET ALY. THEN PRESS THE ENTER KEY. 

— oo ANY SOTHeR  CETTER, THEN PRESS THE ENTER KEY. 
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APPENDIX C 
INTERNATIONAL RULES: CODED AND DECODED 


RULE IS:wstx 21 
CONCLUSION IS: 
SEMANTIC ERROR. 
SELECTIONS 12 AND 4 AND 6 AND 
RUN_LTS ARE NOT COMPATIBLE. LIGHTS OR DAYSHAPES CAN NOT 
NORMALLY BE SEEN DURING REDUCED VISIBILITY CONDITIONS. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
DAYSHAPE IS BASKET. 
REDUCED VISIBILITY:FOG SIGNAL FWD OF BEAM. 
ere LIGHTING CONFIGURATION IS: 
WHEN SPECIAL LIGHTING CONFIGURATION IS: 
RED OVER WHITE 


RULE IS:axt 10 

CONCLUSION IS: 
SEMANTIC ERROR. 
SELECTIONS 1 AND 6 AND 18 
ARE NOT COMPATIBLE. LIGHTS OF ANY TYPE ARE NOT NORMALLY 
DISPLAYED AFTER SUNRISE. 

WHEN THE FOLLOWING FACTS ARE TRUE: 
TIME = DAY. 
WHEN SPECIAL LIGHTING CONFIGURATION IS: 
RED OVER WHITE - 
EN LIGHTING CONFIGURATION IS: 
S 


RULE IS:wst 20 
CONCLUSION IS: 
SEMANTIC ERROR. 
SELECTIONS 12 AND 18 AND 4 
ARE NOT COMPATIBLE. LIGHTS OR DAYSHAPES CAN NOT 
NORMALLY BE SEEN DURING REDUCED VISIBILITY CONDITIONS. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
DAYSHAPE IS BASKET. 
REDUCED VISIBILITY:FOG SIGNAL FWD OF BEAM. 
CCN eliaes ore LIGHTING CONFIGURATION IS: 


RULE IS-xStale 

CONCLUSION IS: 
SEMANTIC ERROR. 
SELECTIONS 18 AND 6 AND 3 ARE NOT COMPATIBLE. 
LIGHTS OF ANY TYPE CAN NOT NORMALLY BE SEEN DURING REDUCED 
VISIBILITY CONDITIONS. 

WHEN THE FOLLOWING FACTS ARE TRUE: 
WHEN SPECIAL LIGHTING CONFIGURATION IS: 
RED OVER WHITE 
REDUCED VISIBILITY:FOG SIGNAL FWD OF BEAM. 
Sees awa LIGHTING CONFIGURATION IS: 


RULE IS:at 9 
CONCLUSION IS: 

SEMANTIC ERROR. 

SELECTIONS 1 AND 18 ARE NOT COMPATIBLE. 

LIGHTS OF ANY TYPE ARE NOT NORMALLY SEEN AFTER SUNRISE. 
WHEN THE FOLLOWING FACTS ARE TRUE: 

TIME = DAY. 

pe LIGHTING CONFIGURATION IS: 

5 


04 


RUBE IS:ax & 
CONCLUSION IS: 

SEMANTIC ERROR. 

SELECTIONS 1 AND 6 ARE NOT COMPATIBLE. 

LIGHTS OF ANY TYPE ARE NOT NORMALLY SEEN AFTER SUNRISE. 
WHEN THE FOLLOWING FACTS ARE TRUE: 

TIME = DAY. 

WHEN SPECIAL LIGHTING CONFIGURATION IS: 

RED OVER WHITE 


RUBE IS:sw 12 
CONCLUSION IS: 
' SEMANTIC ERROR. 
SELECTIONS 12 AND 3 ARE NOT COMPATIBLE. 
DAYSHAPES CAN NOT NORMALLY BE SEEN DURING REDUCED 
VISIBILITY CONDITIONS. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
REDUCED VISIBILITY:FOG SIGNAL FWD OF BEAM. 
DavonArE I5 BASKET. 


RULE IS:ab 19 
CONCLUSION IS: 

SEMANTIC ERROR. 

SELECTIONS 1 AND 2 ARE NOT COMPATIBLE. 

THE TWO POSSIBLE TIME-PERIODS CAN NOT OCCUR TOGETHER. 
WHEN THE FOLLOWING FACTS ARE TRUE: 

TIME DAY. 

Tee NIGHT. 


RULE IS:st 14 
CONSLUSION IS: 
SEMANTIC ERROR. 
SELECTIONS 18 AND 3 ARE NOT COMPATIBLE. 
LIGHTS OF ANY TYPE CAN NOT NORMALLY BE SEEN eee REDUCED 
PISIBLELTY CONDITIONS. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
REDUCED VISIBILITY:FOG SIGNAL FWD OF BEAM. 
ee LIGHTING CONFIGURATION IS: 
S 


RUGe Is:ux ls 
CONCLUSION IS: 
SEMANTIC ERROR. 
SELECTIONS 6 AND 3 ARE NOT COMPATIBLE. 
LIGHTS OF ANY TYPE CAN NOT NORMALLY BE SEEN DURING REDUCED 
Vis lIB@biry CONDITIONS . 
WHEN THE FOLLOWING FACTS ARE TRUE: 
REDUCED VISIBILITY:RADAR CONTACT. 
WHEN SPECIAL LIGHTING CONFIGURATION IS: 
RED OVER WHITE 


RULE IS:bw 11 
CONCLUSION IS: 
SEMANTIC ERROR. 
SELECTIONS 1 AND 12 ARE NOT COMPATIBLE. - 
DAYSHAPES ARE NOT NORMALLY DISPLAYED AFTER SUNSET. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
TIME = NIGHT. 
DAYSHAPE IS BASKET. 


RUBEeIS:ez 2 

CONCLUSION IS: 
CONTACT HAS SPECIAL STATUS. YOU ARE GIVE-WAY VESSEL. 
MetEO VER enOes OLD CONTACT. TURN STBD IF POSSIBLE. 
SOUND ONE SHORT BLAST TO SIGNAL A STBD TURN. 

WHEN THE FOLLOWING FACTS ARE TRUE: 
TARGET ANGLE IS STBD FWD. 
CONTACT HAS SPECIAL STATUS. 
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RULE ES:e 2 
CONCLUSION IS: 

YOU ARE STAND-ON VESSEL. MAINTAIN COURSE AND SPEED. 
WHEN THE FOLLOWING FACTS ARE TRUE: 

TARGET ANGLE IS STBD FWD. 


RULE IS:ev 4 
CONCLUSION IS: 
OWN SHIP HAS SPECIAL STATUS. YOU ARE STAND-ON VESSEL. 
MAINTAIN COURSE AND SPEED. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
TARGET ANGLE IS PORT FWD. 
OWN SHIP HAS SPECIAL STATUS. 


RULE IS:e 3 
CONCLUSION IS: 
YOU ARE GIVE-WAY VESSEL. MANEUVER TO AVOID CONTACT. 
TURN STBD IF POSSIBLE. 
SOUND ONE SHORT BLAST TO SIGNAL A STBD TURN. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
TARGET ANGLE IS PORT FWD. 


RULE, iS ied 
CONCLUSION IS: 

YOU ARE STAND-ON VESSEL. MAINTAIN COURSE AND SPEED. 
WHEN THE FOLLOWING FACTS ARE TRUE: 

RELATIVE BRG IS AFT. 


RULED ES iG 
CONCLUSION IS: 
YOU ARE GIVE-WAY VESSEL. MANEUVER TO AVOID CONTACT. 
TURN STBD IF POSStBEE. 
SOUND ONE SHORT BLAST TO SIGNAL A STBD TURN. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
TARGET ANGLE [5S AFT. 


RULE IS:fv 4 
CONCEUSEON Sis): 
OWN SHIP HAS SPECIAL STATUS. YOU ARE STAND-ON VESSEL. 
MAINTAIN COURSE AND SPEED. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
TARGET ANGLE IS QOQOQ. 
OWN SHIP HAS SPECIAL STATUS. 


RULE IS:fz 3 
CONCLUSION IS: 
YOU ARE GIVE-WAY VESSEL. MANEUVER TO AVOID CONTACT. 
TURN STBUMIE POSSIBLE . 
SOUND ONE SHORT BLAST TO SIGNAL A STBD TURN. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
TARGET ANGLE IS OOO. 
CONTACT HAS SPECIAL STATUS. 


RULE loon 
CONCLUSION IS: 
BOTH SHIPS MUST GIVE WAY. ALTER COURSE SOs cB) 10 
AVOID CONTACT. 
SOUND ONE SHORT BLAST TO SIGNAL A STBD TURN. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
TARGET ANGLE IS 000. 


RULE GS <136 

CONCEUSTON IS: 
CONTACT HAS SPECIAL STATUS. 

WHEN THE FOLLOWING FACTS ARE TRUE: 
WHEN LIGHTING PATTERN IS RED OVER GREEN, 
CONTACT IS A SAILING VESSEL. 
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RULELIS :m_6 

CENeLUSION IS: 
C@MIaCT HAS SPECIAL STATUS. 

WHEN THE FOLLOWING FACTS ARE TRUE: 
WHEN DAYSHAPE IS TWO BLACK BALLS, 
VESSEL IS NOT UNDER COMMAND. 


RULE IS:n 6 
CONCLUSION IS: 
CONTACT HAS SPECIAL STATUS. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
WHEN DAYSHAPE IS BALL DIAMOND BALL, 
VEseEG TS RESTRICTED IN TTS5° ABILITY TO MANEUVER. 


RULE IS:0 6 

GONeLUSION 1S: 
G@eNTACT HAS SPECIAL STATUS. 

WHEN THE FOLLOWING FACTS ARE TRUE: 
WHEN LIGHTING PATTERN IS RED OVER WHITE, 
VESSEL IS ENGAGED IN FISHING. 


RULE IS:p 6 
CONCLUSION IS: 

CONTACT HAS SPECIAL STATUS. 
WHEN THE FOLLOWING FACTS ARE TRUE: 

WHEN LIGHTING IS GREEN OVER WHITE, 

VESSEL IS ENGAGED IN TRAWLING. 


-RULE IS:q 6 
CONCLUSION IS: 
CONTACT HAS SPECIAL STATUS. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
_ WHEN DAYSHAPE IS CYLINDER, 
VESSEL IS CONSTRAINED BY ITS' DRAFT. 


RUGESIS:r 6 
CONCLUSION IS: 
CONTACT HAS SPECIAL STATUS. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
WHEN DAYSHAPE IS DOUBLE CONES, 
VESSEL IS ENGAGED IN FISHING OR TRAWLING. 


RULE IS:* 7 

CONCLUSION IS: 
REDUCE SPEED TO BARE STEERAGE-WAY. PROCEED WITH EXTREME 
CAUTION UNTIL THE DANGER OF COLLISION IS OVER. 

WHEN THE FOLLOWING FACTS ARE TRUE: 
REDUCED VISIBILITY:FOG SIGNAL FWD OF BEAM. 
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APPENDIX D 
INLAND RULES: CODED AND DECODED 


RULE IS:s7!& 21 
CONGEUS TON PEs: 
SEMANTIC ERROR. 
SELECTIONS 12 AND 4 AND 6 AND 
RUN_LTS ARE NOT COMPATIBLE. LIGHTS OR DAYSHAPES CAN NOT 
NORMALLY BE SEEN DURING REDUCED VISIBILITY CONDITIONS. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
REDUCED VISIBILITY:FOG SIGNAL FWD OF BEAM. 
WHEN SPECIAL LIGHTING CONFIGURATION IS: 
REDSeVERS hal TE 
Seen STANDARD LIGHTING CONFIGURATION IS: 
> N 
DAYSHAPE IS BASKET. 


RULE ISest& 20 
CONCEUSTON DIS: 
SEMANTIC ERROR. 
SELECTIONS 12 AND 18 AND 4 
ARE NOT COMPATIBLE. LIGHTS OR DAYSHAPES CAN NOT 
NORMALLY BE SEEN DURING REDUCED VISIBILITY CONDITIONS. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
REDUCED VISIBILITY:FOG SIGNAL FWD OF BEAM. 
OE EL aon LIGHTING CONFIGURATION IS: 
S R 2 
DAYSHAPE IS BASKET. 


RULE, iS :S2!ero 

CONCLUSION IS: 
SEMANTIC ERROR. 
SELECTIONS 18 AND 6 AND 3 ARE NOT COMPATIBLE. 
LIGHTS OF ANY TYPE CAN NOT NORMALLY BE SEEN DURING REDUCED 
VISLELLITY scour Eiets: 

WHEN THE FOLLOWING FACTS ARE TRUE: 
REDUCED VISIBILITY:FOG SIGNAL FWD OF BEAM. 
WHEN SPECIAL LIGHTING CONFIGURATION IS: 
RED OVER WHITE 
eee Nee LIGHTING CONFIGURATION IS: 
Sah 


RULE IS:@!? 10 
CONCLUSION IS: 
SEMANTIC ERROR. 
SELECTIONS 1 AND 6 AND 18 
ARE NOT COMPATIBLE. LIGHTS OF ANY TYPE ARE NOT NORMALLY 
DISPLAYED AFTER SUNRISE. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
TIME = DAY. 
ear aea LIGHTING CONFIGURATION IS: 


WHEN SPECIAL LIGHTING CONF SGURAT ION Sis. 
RED OVER WHITE 


RULE IS:@! 9 
CONCEUSLONS LS: 

SEMANTIC CERRO. 

SELECTIONS 1 AND 18 ARE NOT COMPATIBLE. 

LIGHTS OF ANY TYPE ARE NOT NORMALLY SEEN AFTER SUNRISE. 
WHEN THE FOLLOWING FACTS ARE TRUE: 

TIME = DAY. 

a LIGHTING CONFIGURATION Is: 
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RULE IS:@? 8 
CONSLUSION IS: 

SEMANTIC ERROR. 

Sebeer IONS 1 AND 6 ARE NOT COMPATIBLE. 

LIGHTS OF ANY TYPE ARE NOT NORMALLY SEEN AFTER SUNRISE. 
WHEN THE FOLLOWING FACTS ARE TRUE: 

Telibe = DAY. 

WHEN SPECIAL LIGHTING CONFIGURATION IS: 

RED OVER WHITE 


RULE IS:#& 11 
CONCLUSION IS: 

SEMANTIC ERROR. 

SELECTIONS 1 AND 12 ARE NOT COMPATIBLE. 

DAYSHAPES ARE NOT NORMALLY DISPLAYED AFTER SUNSET. 
WHEN THE FOLLOWING FACTS ARE TRUE: 

time = NIGHT. 

DAYSHAPE IS BASKET. 


Rubee tS 3s& 12 

GCHNGLUSTON IS: 
SEMANTIC ERROR. . 
SELECTIONS 12 AND 3 ARE NOT COMPATIBLE. 
DAYSHAPES CAN NOT NORMALLY BE SEEN DURING REDUCED 
WIStBILITY CONDITIONS. 

WHEN THE FOLLOWING FACTS ARE TRUE: 
REDUCED VISIBILITY:FOG SIGNAL FWD OF BEAM. 
DAYSHAPE IS BASKER 


ReEE IS:s? 13 
CONeCLUSION IS: 
SEMANTIC ERROR. 
SHEECITI@GNS G AND 3 ARE NOT COMPATIBLE. 
LIGHTS OF ANY TYPE CAN NOT NORMALLY BE SEEN DURING REDUCED 
ls LEI LITY sGONDITIONS. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
RepverD VISIBILITY:FOG SIGNAL FWD OF BEAM. 
WHEN SPECIAL LIGHTING CONFIGURATION IS: 
RED OVER WHITE 


RULE IS:s! 14 
CONCLUSION IS: 
SEMANTIC ERROR. 
SELECTIONS 18 AND 3 ARE NOT COMPATIBLE. 
LIGHTS OF ANY TYPE CAN NOT NORMALLY BE SEEN DURING REDUCED 
VISIBILITY C@NDITIONS. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
REQUCID Viale bury rOG SIGNAL FWD OF BEAM. 
ee LIGHTING CONFIGURATION IS: 


RULE IS:#@ 19 
CONCLUSION IS: 

SEMANTIC ERROR. 

SELECTIONS 1 AND 2 ARE NOT COMPATIBLE. 

ie eee shoo vebe, TiB=PeRtODS C&N NOT OCCUR TOGETHER. 
WHEN THE FOLLOWING FACTS ARE TRUE: 

ITE = Day. 

TIM NIGHT. 


RUBE IS:W ozo 
CONCLUSION GES: 
REDUCES OEee De lO ENSURE, SAFETY @F BOTH SVESSELS. WHEN PASSING 
Hit ec Or CONTACT, REDUCE SPEED TO 5 MPH OR LESS. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
THE VESSEL IS ENGAGED IN SERVICING NAVIGATION AIDS. 


RULE fs..2e2s 
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CONCLUSION IS: 
REDUCE SPEED TO ENSURE SAFETY OF BOTH VESSELS. WHEN PASSING 
WITHIN 200 FT. OF CONTACT, REDUCE SPEED TO 5 MPH OR LESS. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
THE VESSEL IS ENGAGED IN SERVICING NAVIGATION AIDS. 


RULE TS:U326 

CONCLUSION IS: 
WHEN WITHIN ONE MILE OF CONTACT, INDICATE INTENTION TO PASS 
WITH ONE LONG BLAST. CONTACT WILL DIRECT YOU TO PROPER SIDE 
FOR PASSAGE WITH ONE SHORT BLAST FOR A STBD PASSAGE OR TWO 
SHORT BLASTS FOR A PORT PASSAGE. ANSWER WITH SAME SIGNAL TO 
ACKNOWLEDGE. IF CONTACT SOUNDS DANGER SIGNAL, FOUR OR MORE 
SHORT BLASTS IN RAPID SUCCESSION, DO NOT ATTEMPT TO PASS. 
SLOW DOWN OR STOP AND AWAIT FURTHER SIGNAL. 

WHEN THE FOLLOWING FACTS ARE TRUE: 
THE VESSEL IS ENGAGED IN LAYING CABLE. 


RULE IS:N 26 

CONCLUSION IS: 
WHEN WITHIN ONE MILE OF CONTACT, INDICATE INTENTION TO PASS 
WITH ONE LONG BLAST. CONTACT WILL DIRECT YOU TO PROPER SIDE 
FOR PASSAGE WITH ONE SHORT BLAST FOR A STBD PASSAGE OR TWO 
SHORT BLASTS FOR A PORT PASSAGE. ANSWER WITH SAME SIGNAL TO 
ACKNOWLEDGE. IF CONTACT SOUNDS DANGER SIGNAL, FOUR OR MORE 
SHORT BLASTS IN RAPID SUCCESSION, DO NOT ATTEMPT TO PASS. 
SLOW DOWN OR STOP AND AWAIT FURTHER SIGNAL. 

WHEN THE FOLLOWING FACTS ARE TRUE: 
THE VESSEL IS ENGAGED IN LAYING CABLE. 


RULE IS:V 28 
CONCLUSION IS: 

MANEUVER TO AVOID A VESSEL AT ANCHOR. Z 
WHEN THE FOLLOWING FACTS ARE TRUE: 

THE VESSEL IS ANCHORED. 


RULE IS+P Ze 
CONCLUSION IS: 

MANEUVER TO AVOID A VESSEL AT ANCHOR. 
WHEN THE FOLLOWING FACTS ARE TRUE: 

THE VESSEL IS ANCHORED. 


RUBE TTS 0726 

CONCLUSION IS: 

WHEN WITHIN ONE MILE OF CONTACT, INDICATE INTENTION TO PASS 
WITH ONE LONG BLAST. CONTACT WILL DIRECT YOU TO PROPER SIDE 
FOR PASSAGE WITH ONE SHORT BLAST FOR A STBD PASSAGE OR TWO 
SHORT BLASTS FOR A PORT PASSAGE. ANSWER WITH SAME SIGNAL TO 
ACKNOWLEDGE. IF CONTACT SOUNDS DANGER SIGNAL, FOUR OR MORE 
SHORT BLASTS IN RAPID SUCCESSION, DO NOT ATTEMPT TO PASS. 
SLOW DOWN OR STOP AND AWAIT FURTHER SIGNAL. 

WHEN THE FOLLOWING FACTS ARE TRUE: 

-THE VESSEL IS ENGAGED IN DREDGING. 


RULE [5:5 26 

CONCLUSION IS: 
WHEN WITHIN ONE MILE OF CONTACT, INDICATE INTENTION TO PASS 
WITH ONE LONG BLAST. CONTACT WILL DIRECT YOU TO PROPER SIDE 
FOR PASSAGE WITH ONE SHORT BLAST FOR A STBD PASSAGE OR TWO 
SHORT BLASTS FOR A PORT PASSAGE. ANSWER WITH SAME SIGNAL TO 
ACKNOWLEDGE. IF CONTACT SOUNDS DANGER SIGNAL, FOUR OR MORE 
SHORT BLASTS IN RAPID SUCCESSION, DO NOT ATTEMPT TO PASS. 
SLOW DOWN OR STOP AND AWAIT FURTHER SIGNAL. 

WHEN THE FOLLOWING FACTS ARE TRUE: 
THE VESSEL IS ENGAGED IN DREDGING. 


RULE IS:A 24 
CONCLUSION IS: 


70 


WOU TEST OREEr OUT OF THE WAY OF SAILING VESSELS UNLESS YOU 
ARE CONSTRAINED BY A NARROW CHANNEL. IF YOU ARE CONSTRAINED 
AND A CLOSE QUARTER SITUATION IS EMINENT, SOUND THE DANGER 
SIGNAL, FOUR OR MORE SHORT BLASTS IN RAPID SUCCESSION. 

WHEN THE FOLLOWING FACTS ARE TRUE: 
CONTACT IS A SAILING VESSEL UNDER SAIL. 


BUF 15.281 
CONCLUSION IS: 

YOU ARE STAND-ON VESSEL. MAINTAIN COURSE AND SPEED. 
WHEN THE FOLLOWING FACTS ARE TRUE: 

COMrPeG! ise CROSSING EROM=PORT fO .STEBD. 


RULE I1S:C 3 
CONCLUSION IS: 
YOU ARE GIVE-WAY VESSEL. MANEUVER TO AVOID CONTACT. 
TURN STBD IF POSSIBLE. 
SOUND ONE SHORT BLAST TO SIGNAL A STBD TURN. 
WHEN THE FOLLOWING FACTS ARE TRUE: 
CONTACT IS CROSSING FROM STBD TO PORT. 


RUE lS =D p22 

CONELUSION ,15S:: 
BOTH SHIPS MUST GIVE WAY. GIVE ONE SHORT BLAST TO SIGNAL 
YOUR INTENTION TO ALTER COURSE TO STBD OR ANSWER THE 
CONTACT'S SIGNAL WITH THE SAME SIGNAL. DO NOT ALTER COURSE 
UNTIL YOU AND THE CONTACT HAVE MATCHED SIGNALS. 

WHEN THE FOLLOWING FACTS ARE TRUE: 
MEETING CONTACT HEAD TO HEAD. 


PUbE, 15: 2e2 3 

CONCLUSION IS: 
YOU ARE GIVE-WAY VESSEL. SOUND ONE SHORT BLAST IF YOU 
DN PeEDeLOVOVERTARKE ON THE SIBD SIDE OR TWO SHORT BLASTS IF 
7eU THEMES TO OVERTAKE ON THE PORT SIDEs WAIT FOR 
THE SAME SIGNAL IN AGREEMENT BEFORE OVERTAKING. IF THE 
CONTACT ANSWERS WITH THE DANGER SIGNAL, FOUR OR MORE SHORT 
one RAPID SUCCESSION, DO NOT ATTEMPT TO OVERTAKE THE 
O 

WHEN THE FOLLOWING FACTS ARE TRUE: 
OVERTAKING THE CONTACT. 


RULE ose) 

CONCLUSION 15: 
YOU ARE STAND-ON VESSEL. MAINTAIN COURSE AND SPEED. 
ANSWER PASSING VESSEL'S INDICATION OF DESIRED SIDE TO PASS 
Voto reo beh TL 15 SAFE, BUT ANSWER WITH THE DANGER 
Seo eee eOnmonmiiOne SHORT BLASTS IN RAPID SUCCESSION, IF 
THERE IS A DANGER. 

WHEN THE FOLLOWING FACTS ARE TRUE: 
BEING OVERTAKEN BY THE CONTACT. 


Rubee IS:*. 7 

CONCLUSION IS: 
REDUCE SPEED TO BARE STEERAGE-WAY. PROCEED WITH EXTREME 
CAUTION UNTIL THE DANGER OF COLLISION IS OVER. 

WHEN THE FOLLOWING FACTS ARE TRUE: 
REDUCED VISIBILITY:FOG SIGNAL FWD OF BEAM. 
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